Keeping Models 3 & 4 Alive 



Volume 1. No. 6. 



November 1988 



$3.00 




LITTLE ORPHAN EIGHTY 



It is absolutely amazing! 

Thit column It wrttten on October 16, 1988. Thl$ 
Is axacfly, to the dale, one year after tie people at 80 
Micro made the fateful announcement that they 
would no longer support Ihe TRS 80, The 'experts' 
dtdnl waste any ttme predtcttng that the machines 
would fade Into oblMon to meet a quick and quiet 

Boy, were they WRONG! 



The TRS 80 has refused to roll over and die. It 
has proven to have a very dedicated following that Is 
not about to junk a machine that does a commen- 
dable Job day In and day out We are as happy wHh 
tt now as we were when we first brought tt home 
from the store, and when the chips (pun Intended) 
were down and the 'major leaguers' threw In the 
towel for financial or other reasons, the little guys* 
took over. 

The lltUe guy*? Yeah, I mean Stan Slater of 
Computer News 80, Luis Garcia Banio of TRSUNK, 
Tim Sewetl of GEnle and the Rie Cabinet, and oursel 
ves, TRSTImes. But we simply acted first Had we 
not, I am sure that some other little guys' out there 
would have lumped In to fill the need. 

What I am trying to say is that, with this kind of sup 
port, surely the TRS 80 has plenty of life 



1988 saw more magazine coverage ftan anytime 
since March 1984. Computer News 80, which 
sported Its first Issue this past January, has grown 
Into a respected and very fine source of timely Infor 
matlon. Stan has done an Incredible Job. I urge 
arvyone who Is not at this time subscribing to do so. 
Lef s keep this magazine around for a long time. Sup 
port the ones that support you. 

TRSUNK, the monthly magazine on disk, put out 
their first issue In November 1987. Each new monthly 
Issue has been better than the previous. It Is obvious 
that Luis has put In many, many hours of his life to 
give the TRS 80 community support Now, working 
long, hard hours Is not parttcuiaily difficult If you get 
paid accordingly. However, TRSLINK Is FREE. 
Nobody makes any money. His only mothmtlon Is 
LOVE of the TRS 80. So. to Luis and everyone else 
connected with TRSUNK, THAMK YOU. May you 
long contnue. 

TRSTImes also started In January. At that time we 
had no idea lust what we were getting Into. I freely 
admtt that some nlghts» usually around 2:30 am, It 
teemed like we wouldnl meet the deadlines. But, 
somehow. It always worked out Such Is the fun of 
pubHshtng. We hope that we have brought you Inter- 
esting articles and programs. 

1988 also brought Tlie FILE CABIf^ST to the fore 
frofTi of the TRS-80 scene. Tim has alweys been an 



avfd collector of software, commercial and public 
domidn. He has now what I believe to be the world's 
largest collection of TRS 80 sofbvare. Entering his 
computer room Is an experience to Measure. I have 
never seen that many disks In my life. There are 
literally thousands, and Tim, with his Infinite patience, 
Is going through them, one at a Ume, to catalog the 
files Into some reasonable order. Boy, oh boyf 

Like they say: 'If s a dirty |ob, but somebody's got 
to do It" and Tim Is lust the right man to undertake 
Ihl. giant and ...mingly never. nding tasic So give 
him your support His vrark benefits us all . 

Other fine contributions from Ihe 'little guys' have 
surfaced. When our Model 4*s would not accept 
dates after 1987, Dan/ld Goben came to the rescue 
wtth his T62DOSXT package. Gary Campbell of 
DBSIDE enhanced Model III TRSDOS 1.3. so we can 
use our double sided drives and, would you believe 
It, Ben Mesander has made available a C compiler 
for the Model I. 

A few of the 'big boys* are stJtl around, creating 
magic for our machines. Most notably, of course, Is 
Roy Sottoff. He Is currently venturing to make IBM 
hard drives work on the TRS 80. I'll bet he wilt be 
successful and thus bring us reliable and Inexpen 
sive mass storage. I very much look forward to that 

I also hope that Roy v/ltl consider upgrading or 
rewriting (whatever) LS DOS 6.3. to bring us the 
NEW STANDARD Model 4 DOS, V8.4., In which the 
date function will accept dates for ALL years until the 
end of time, AND the alleged copy protection is 
removed, whether It exltted or not . 

Can we count you In on that one, Roy? 

HYPERSOFT Is still In the TRS 80 market Their 
program, Hypercross, Is the best file transfer uUltty 
available. Among the many other programs they 
offer Is one for the IBM PC called PC Four. It allows 
you to run Model 4 software on the IBM. Imagine run- 
ning ALLWRITE on 'big blue'! 

The latest rage for our machines Is the HI Rez 
board, which opens up a whole new world of com 
puling. Micro Labs are current^^ offering these at dls 
count prices. Software Is also readily available from 
them as well as from MIcrodex, who supports one of 
the best programs for HI Rez, xTCAD. 

If you check the ads In ON 80, TRSUNK and 
TRSTImes, you will see that many other people are 
offering products of Merest to the various TRS 80 
machines. Check them out 

Looking back It Is clear we are not quAe as or- 
phaned as the 'experts* would have Uked us to 
believe a year ago. 1988 has been a good year. 

Lefs do It again In '88. 

And now. Welcome lo TRSTknes #8. 
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THE 

MAIL 

ROOM 



Commeiits on it tua #5 

Rrst off, i am very happy to hear that there will be 
another year of TRSTimes. I have been most Im- 
pressed with the professionalism you brought to this 
venture, a level far In excess of that displayed by the 
late 80 Mlcro_. (As a contributor, i can attest that 
Lance goes to'great lengths to avoid conflict of Inter- 
est) 

However, there 
were a few little er 
rors in TRSTimes 
#5 that I would like 
to respond to. 
Probably only 
someone with my 
nitpicidng (some 
might say nitwit..) 
mind would notice 
them, but here 
goes anyway. 

Rrst off, in Roy 
Beck's CP/M 

column, he states that a TRSDOS 6.x JCL file cannot 
continue into an application; this is in error. I have 
used JCL's to MERGE BASIC programs, control the 
MEMDISK driver, and so on. One must be careful to 
plan out the prompts and necessary responses, but It 
can be done. 

The next nitpick is in Gordon Collins' article on 
using SYS13/SYS. His first use of SYS13/SYS (copy 
ing VIslCalc to it so that it may be run simply by 
typing a **" and hitting (ENTER)) is more accurately 
called an lEP. (i)nstant (E)x6cution (P)rogram ; at 
least, that's what my documentation from Tandy calls 
that particular use. It's only when you alter EFLAGS 
so that whatever is in SYS13 replaces the standard 
command Interpreter (hence the designation ECl: 
(E)xtended (C)ommand (i)nterpreter) that the term 
ECl Is appropriate. 

Also, one needm zap SYSO/SYS to make an ECl 
permanent, if you make the change in RAM with the 
MEMORY command, and then SYSGEN the system, 
the setting of the EFU^G$ will be preserved and res 
tored on bootup. 




Rnally, a comment about Tim's PD Express. Trs 
Draw Is wrttten In Radio Shack's BaslcG, and as 
such will not run under Micro Labs' QBaslc. 
HOWEVER, I am told by Micro Labs owners that 
BaslcG Itself runs Just fine on their boards; so. if you 
beg. borrow or (gaspl) steal a copy of BaslcG. there 
Is no problem with running TrsDraw on a Micro Labs 
board. 

From what I have found out. ALL the incom 
patibHity between the two boards Is In ttieir widely 
divergent Graphics Basic; since one can run either 
Graphics Basic on eKher board. I'm now suggesting 
that people btiy the Micro Labs board (as It Is much 
cheaper), and obtain a copy of BaslcG so they can 
run programs wrttten In either flavor of Graphics 
Basic. 

So now that I've left the previous Issue a pock 
marked mass of Ichor dripping words and bleeding 
phrases (GRIN!), I'll raise my can of sodapop In 
toast to the coming year of TRSTimes!! 

George Madison 
Los Angeles, CA. 



ftsue #5 eover 

Thank you for your support of the TRS 80. I'm 
glad to read that you will keep going for another 
year. 

I wanted also to comment on the September 
issue. You are right in si^ng that It Is your finest 
Issue. The best part Is the cover. TRSTimes wlii be 
come famous for its loud covers, but this time there 
was a certain subtlety, a delicacy In the artwork. 
What i mean to sty is that i noticed that two of the 
pictures on the front cover looked familiar. The pic 
ture on the center, bottom Is a portion of a picture 
drawn by a good friend of mine, Ken Miller. He 
owns an Apple IIGS, so he used my machine to 
draw it The picture of the river on the upper, right is 
by me. Ken is a sign painter and a commercial artist 
I am not an artist, have never been an artist, might 
never be an artist i feel flattered that you Included 
my picture. I think It shows what computers can do 
for people, i write a lot more, now that I use a word 
processor. I draw, now that I have a Hi-Rez board. 
I'm not sure how, but the computer removes the in 
timidatlon of drawing. I like to sit and doodle now. 
Clearing the screen is even easier than tossing a 
sheet of paper. Erasing is another option that I like. 

One other request Could you give an explanation 
of how you put TRSTimes together? What hardware 
do you use; what software? I woni be too upset If 
you say that It was done on an IBM ^e machine. I 
hear that some people have been able to do produc 
tive work on theirs. 

Peter Besenbruch 

R. Leonard Wood, MO 
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Tim S0W8li, very ably, did the cover for l88ue #5. 
He has thousands upon thousands of hi rez pictures, 
so It was no easy task to select the right comblna 
tlon. I think his choices justly reflect the talent and am 
bttlon of the TRS 80 users. Our thanks go out to you 
and Ken for the use of your fine, well drawn pictures. 

TRSTImes Is put together In a variety of ways. The 
front cover Wm are done on ALLWRITE and Dot 
Writer, run i» Hocte! Ill DaePfys. The rest of the 
cover, of court®, I® 
Newdos/80 formM I 
format using C0PYAID2. TBSDOS 1.3. text mo Is 
transferred to Model 4 format It Is then processed 
wtth LeScripi 

Programs are tested on the DOS for which they 
are intended, and are then copied to Model 4 media 
In ASCII. A trial copy Is then printed from LeScripi 

Then comes the hard part choosing Ih® Mfeles to 
get as much varied m postlble, and the order in 
which they should appear. 

When the material has finally been selected, It Is 
then transferred to an IBM clone using either HYPER 
CROSS or TRSCROSS, Whichever is handler at the 
time. The material Is then run Into Ventura Publishing 
to shape the pages, taJdng advantage of the fonts 
and graphics eapabfltie@ for tie Unal pririfl-eiit; Mid 
then down the street to the printer for mass copies. 

Accounflng at TRSTImes Is done on a V1SICALC4 
spreadsheet, backed up by using DAC EASY on the 
clone. Subscriber information It stored on Model 4 
PFS:flle. For the tdkB of stf e^, tie tame list Is kept 
on the clone using Q&A 

Yes, the TRSDOS and MS DOS machines can 
work together, and I feel that there Is just something 
very appealing In the fact that the clone Is actually 
promoting the word of TRSDOS. 

•Ed. 



Another Junkie 

I am glad yoy are going to ptibffth TRSTImes 
through 1989. 1 enjoy your fine publication and 
manage to dig some goodies out of each Issue. 

I'm looking forward to you 'making me see the 
light to get me started' in assembly language. I doni 
have any burning desire to learn all the m's and 
out's, but sure would like to get to know It a llttte bit 
Who Knows, maybe It will become my new passion.. 
(The little lady says that Is til I need, to h»m yet 
another passion wtth my computer.) "UVINQ WITH A 
COMPUTER JUNKIE* Is very good. 

i have the Model 4, PRO -CREATE Micro m- 
sembler. Editor As$®mbler Version ^ 
MISOSYS. Maybe you could §lm tii 
November Issue, Jim! ¥^^ ^M^mm . 
will need for ymw ttstwfe^ I«§iiaf8- totoiials. We 
should get p^^^mm4 fQU Icnow. 

Led Wolfe 
Carson City, NV 



A lot of our wmt identified with Barbara Beck's 
article about Roy. When you're hooked, you're 
hooked. 

See ■CLOSE#6'' for details on the AL tutorial. 

Ed. 



MACROKEY 

There is a potential bug In MACROKEY when 
used on a Model I Programs that use high memory 
could lock up the keyboard. To fb( this, Insert line 
MB: LP f4®49XHL 

I regi^ enjoyed tMs program. Keep up the great 
worK NEWDOS/80 ruiesi 

Ben Mesander 



CHANQO80 

i found a bug m ttie listing to CHANGO80/BAS 
from issue #4. Line 340 is missing a 'greater than' 
and a 'less than' sign. Line 340 should read: 
340iFi<1 OR i>8 THEN 330 ELSE 
LO = $42 -I- ((i-1)*10):GOSUB 40:ON I 
aOTO48e.470.460,45e.440,430,420,4ie 
I enjoy the typeln programs, especially if 1 find 
and can correct mistalces. Maices me feel HKe a 
programmer. Keep the CP/M series coming. Also 
liked Fred Blechman's article on buying and selling 
used computers. Sign me up for '89. 

Torben BIridiolm 
Aarhus, Denmark 



You caught one Ventura F'ubilsher's pecuHarWes. 
It will all too often drop the 'greater than' and less 
than' characters. 1 thought I got them aH. Sorry. 

QIad to have you wtth us in '89.... SKAAU 

-Ed. 



SUPERSCRIPSIT 

Here is a hint for users of Model 4 Superscripsit I 
have detected ttiat a lot of the troubles wtth that 
program arises due to the "type ahead' when editing. 
I turn off the "^e ahead' and avoid all kinds of 
mishaps when working over a document 

SYSTCM CTVPE = mO) does it 

A second eomment I have outboard disk hand 
left where 1 sometime get error messages like 
'Directory read error' when 1 CAT :2 from DOS. Go 
to Basic and ask for CAT :2 through the system wtth 
LS DOS 6.3, for example: SYSTEM'CAT :2'. This 
usually rolls the directory right out with no fuss. The 
file names areni in aiphabetical order, but it goes 
and allows me to find the proper file names to COPY 
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out to a new dl9k before the old one get so bad It Is 
tost 

Now, for the hackers.... When looking through the 
'SOURCE' i notice that the Z 80 instruction is ahvays 
In the form of RST 28H for SVC call to the system. 
Are any other addresses used In LS DOS? It might 
make a nice tutorial for TRSTImes some day If 
einyone knows the rationale for using any special 
value of address location in the system. 

i have a bare, older Model 4 with 84K and two 
single sided drives. My software Includes Profile, 
Multiplan. Superscripslt, AIDS, Newdos/80 and 
D0SPLUS4. 

Edward F. De Mers 
El Cajon, CA 



Thanks for the Superscripslt and CAT tips. 

The whole purpose of SVC's (Supervisor Calls) Is 
to make life as easy as possible for the author of the 
DOS. Model I & ill DOS calls were made to specific 
addresses, which created a lot of hate mail when the 
DOS was updated and in the process, some addres 
ses were changed. No longer are specific address 
calls necessary, instead the A register is loaded with 
the SVC number, followed by RST 28H to execute 
the cail (depending on the routine, other registers 
may also need to be loaded with specific values). 
Thus, anyone using the SVC's can be assured that 
their program will run on TRSDOS 6.2., as well as 
LS DOS 6.3., and for the most part, also on 
DOSPLUS 4. 

i-lowever, being hackers, we wiil present a list of 
specific CALL addresses for TRSDOS 6.2. In a fu 
ture issue. 

Ed. 



Canadian comments 

Thank you very much for TRSTImes! You are the 
first to publish the famous "ONE BYTE PATCH*; the 
un lamented 80 Micro kept such useful information 
from us. I parUculariy liked your articie about 
TRSDOS 1.3. 1 prefer to Induce PASSWORD am 
nesia In my operating systems, rather than using 
SU + to strip passwords from my disks. 

My computer Is a 4 drive, 128K Model 4. i use 
mostty LOOS 5.3. and LS DOS 6.3. Northem Bytes 
were great for surgery on 1.3., and David Goben 
published some patches for TRSDOS 6.2. The patch 
for the FLAG byte in LS DOS 6.3. Is the same, but 
D02,50 = 18 Is the one for SYS2. 

So far, I have not been able to get Into LDOS, and 
using SU + messes up the date field, but I can live 
with that i have never had the chance to use Newdos 
and don't Intend to either. APPARAT deserted us 
long before Radio Shack did, and there Is no MS 
DOS computer in my future, particularly not of the 
Tandy variety. With the cost of RAM gone into the 
stratosphere, any plans for memory expansion of my 



old 4 are on hold. My computer was one of the last 
Model 4's produced, and It ief s me choose between 
7 and 8 memory refresh cycles. Maybe when the 
price of 256K chips returns to normal I might try 
Roger Alford's method for using 266K chips in the 
second bank. 

As a hardware hacker of almost 50 years stand 
Ing, I was having some trouble expanding to 128K I 
had made It a point to use the Tandy chips specified 
In the tech manual, and I could fonmat and list a Ram 
disk. But when I wrote to It and attempted to use the 
program, all I got was garbage. With RAM being 
cheap at the time, I bought another set of chips with 
the same result Upon closer Inspection, my 
originals looked very much like 8 cycle refresh 
RAMS (4164). So now I had 128K 7 cycle RAM and 
64K 8 cycle RAM. Never one to waste a penny, I set 
to work. There was this jumper (J1) right near the 
memory matrix, and out It came. All the memory was 
replaced wtth 7 cycle, and my Model 4 has per 
formed like a dream ever since. 

I am looking forward to your series about assemb 
ly language programming since the nitty gritty of 
programming has so far eluded me. 

Happy computing. 

Willi Waid 
Hamilton, Ontario 
Canada 



I don't think 80 Micro ever 'withheld' Information 
from us. W£^e Green certainly published any and 
ail information available. However, after his depar 
ture, the direction and the contents of the magazine 
changed drasticaiiy. tt tumed away from the hobbyist 
to cater to the general user, it is quite possible that 
certain Items were not published, either because the 
editors considered it above the readers heads, or 
maybe they were just playing tt safe for one reason 
or another. This was obviously not successful. 

As staled in Little Orphan Eighty column from the 
January 1988 issue, TRSTImes will try to emulate the 
Wayne Green years as much as possible. In other 
words, if we can get a hold of useful Information 
(and permission from the author), we'll publish It 

Many people have contributed patches to the 
various DOS's. You mention Northem Bytes and 
David Goben. Doni forget about Mr. Patch himself, 
Andy Levlnson. Also, Henry Herrdegen, from 
Windsor, Ontario, Just did a large series of TRSDOS 
1.3. patches in the September Issue of Computer 
News 80. Check out his fine article there. They also 
have a disk available with all the patches. 

Ed. 



The TRSninet thought for the day: 

MS-DOS Just say NO! 
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by Eric Bagai 



We've read the stories about Woz, 
Shrayer, Gates, and the others. But 

they were not real Hackers any more 
than Marconi and Edison were real 

Hams. They were merely the first. The 
real Hackers came after them. 



In the early eighties you could depend on a half 
dozen arUclet a month Utied "Why Uohnny Cani Com 
pute/ or 'Computer Utsraey: Another Failure In the 
Schools.* These were mW^n not by computer ex 
perts, but by th© people who wrote yesterday's news 
and entertainment, and who wilt write tomorrow's. 
Their primary effect was to sell copy and terrify 
parents. The real Influence of the microcomputer on 
the young was more varied, and much more Interest 
Ing. 

From the very first, some of the M^t found that 
they could outclass the teacher and gain recognition 
if they could hack a decent line of code. While their 
teachers were taking night classes In PILOT md 
LOGO (two credits each toward the next salary step) 
or listening to a Honeywell trained MIS director talk 
about data Integrity, the Mds were teamlnghow to 
screw up the next kid to sit down aft thit keyboard. 
They learned random seeding and graphic tiring 
packing to make a faster version of Astro. They 
learned how to use symbolic Io0c, und myMffiim- 
slonal arrays md mfU to Md« te $ii@$ lis ^mt M- 
venture games. 1^ t^adt^ pmk and' p&M pi&Mt 
baseball cardt. Ik^ bmmnB competent They 
tekers. 



Most ^ iielr more normal age peers had no In 
cenive to learn something that adults couidnl do, 
that wasnl in the textbook, and whose rewards were 
uncertain. Most kids were lucky enough to have their 
competence In skills that the system recognized, and 
were satisfied with that I certainly doni contend that 
the average child never hacked, or that only the 
strange ones did. But more often than not the local 
Hackers were not the more socially adept, academi 
caily successful, or Junior achiever^e kids. This 



mild truism was exaggerated to produce the 
stereotype of the Computer Nerd. 

Stereotyping an exception to the norm is not a 
new phenomenon. Much the same thing happened a 
few generations ago, when the automobile was new. 
Maybe Ford made It, but only the weird kid down the 
blocic could flK It so It ttay@d fixed. And more likely 
than not he wa$o1 doing all thad well In school. The 
handy (and )ust as untrue) flereotype for these kids 
was Grease Monkey. The schools quickly adopted 
tils altyde as gospel, and taught future auto 
mechanics in the shop classes, where you got dirty 
and weren't on the academic track. 

For the enthusiast, microcomputers and 
automobiles are much alike. They both are Im 
mediately reinforcing and, when the work on them is 
done, provide entertainment and gamer praise. They 
both hold out the nrtythic goal of creating the next 
'PacMan' or "Vlslcalc*, or of constructing the car that 
blows awa^ the 'Baja' or attracts the attention of QM. 
They are also both non literate hobbies, at least at 
the early stages. 

During the earty days of microcomputers, If you 
read the README1.ST or /DOC flies, or the REMark 
statements In the programs of the day, you dis 
covered that the programmer who was so fluent In 
BASIC or assembler often had no sense of English 
grammar, syntax, or spelling. Style was one's use of 
exclamation points, or the catchy phrase you signed 
off with. The New Literacy was also the Different 
Literacy; and for some, obviously. It was the Only 
Literacy. 

This brings up an Interesting side effect Some 
kids learned to read with the Thompson's auto repair 
manuals. Others learned to read with BASIC Better 
and Faster, or the documentation to Turbo Pascal. 
For many Mds, learning to read is the result of a 
need that has nothing to do with school. And, then as 
now, some Mds Just need to gain ttie confidence that 
comes with true competence before they can accept 
or submit to the discipline of school. 

Al the beginning of this century Mds were moving 
1^ from the crystal tilt th«ir ptfents unwiltlngly gave 
film to ^9 amnleur radio bands. They learned 
Morse code, Hstened to the beeps and clicks be 
tween the few commercial radio stations, and began 
to recognize the HIsts' that came on regularly. Their 
first CW key was a drawer knob and two strips of 
copper, mounted on the back of a rat trap. Their first 
broadcast CQ was probably Illiterate and certainly II 
legal, but It was heaven. Some of them became com 
petent enough at buHdlng radios out of scrap (and 
repairing them with more scrap) to get Jobs as radio 
operators on the great ocean going barges during 
the first third of ttie twentieth century. They were the 
proud masters of the only weatherproof structures 
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bum atop the huge flat decks: the ortglnai Radio 
Shacks. 

Because their Shack was the highest point on the 
ocean, and their whip and dipole antenae even 
higher, they were often the literal center of every 
passing lightning storm which Is why their generic 
name was Sparks. The stereotype with which they 
were Inflicted was of the excitable red headed Md 
who could understand static and warn of pending 
disasters. His most recent incarnation was as Cor 
poral Radar O'Reilly. In M.A.S.H. 

Every generation can be characterized, not only 
by its most typical aspects, but by the alternatives to 
the mainstream that it produces. For a few members 
of this generation that alternative was microcomputer 
l-iacking. These are not the software pirates, the sys 
tern crackers, or the phone phreakers criminals 
can be found In any group. They are the Hacker en 
thuslasts who came to love microcomputers not Just 
for what they could do, but for their absolute honesty 
and infinite patience. 

Eventually society Incorporates its alternative 
styles Into the larger Images of an age, sometimes 
exaggerating their size (e.g., the Hackers) or 
deprecating their Influence (e.g., the Hippies.) Very 
soon computers will be enough a part of the school 
curriculum so that good programming will merely 
elicit good grades. This does not mean that there will 
be no more Hackers. Just as, every day, some kid 
discovers the secrets of Morse code or the wonders 
of the Internal combustion engine, another kid dis 
covers that microcomputers, unlike their teachers or 
parents, do not Judge them or make false promises. 
There will always be Grease Monkeys and Hams 
and, even though their day is almost gone, there will 
always be Hackers. 

What matters now Is finding the next wave. I'm 
sure it will be terrifying and fun and misrepresented 
by the press. It will probably be something that re 
quires a young, flexible mind. 

Something like teieportatlon!! 
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• Mod9l 4 HI Rez 

TRSTEXT2 

P~lia Next Generation) 

Madison 



According to our Qonie Emm, w^ pfogrmn Trt 
Toxl (published in ii® M^ lity§ ^ JESJlmBt) hm 
9«norat0d positive feedbacic, a bit of ntwt iitf 
warms my Hacker's heart tfs a great feeling to be 
toid youVe created something that people find useful. 

This time, the announcement isnl quite so radical. 
You're used to the idea thai by adding TrsTeicf to Trt 
Draw, you can now use your DotWrtter fonts on your 
HIRes screen. Ail this arUcie does is describe a 
minor, iltHe, Any tweek to the program 

which speeds II up about SSOfU 

Actually, there's more to It than that I've added 
two 'user friendtlnssi" features as vrall as the 
speedup. And so that those who haveni already in 
stalled TrsText doni have to go digging for the May 
issue, the entire listing for TrsText2 is printed below, 
as well as the Assembly listing for the machine Ian 
guage subroutine, for those of you who are Inter 
ested in how it works. 

WHArS THE DIFFERENCE? 

You may be wondering how i'roanaged to speed 
the program up by more tian six ttnies. The answer 
Is quite easy: more of it is written in Assembly Lan 
guage now. 

The very first version of TrsText was ALL BASIC... 
and It was VERY slow, i did work, however, and that 
was quite encouraging. Being In BASIC, it had to 
use exponenlMlon (a very slow function in BASIC) to 
access the Individual pixels in each byte of DofWrfter 
data for transfer to the screen. The version that was 
printed In TRSTImes used a short Assembly sub 
routine to handle this. A byte of data and the starting 
coordinates were passed to the routine, and it did 
the rest Since bit fiddling Is much easier and much 
FASTER in Assembly than in BASIC, that one Me 
routine made TrsText run about 4x faster than the 
original, ail BASIC version, lifting it from being a 
curloustty Into actual usability. 

Time passed, and I got to fctoWng about iis Trs- 
Text routines again. It stemeil in#f1cierEl to me to 
have to fetch and shiiil® th® data a mere one byte at 
a time. On the other hand, iitre was certain informa 
tlon (character width, number of print lines, etc.) that 
had to b® gotten from the DotWrlter file, and the 
easiest way to get it was as a random access file 
with a one byte Logical Record Length. There was 



also the proportional width table at the end of the 
font file to think about. So, I thought 

What the new Tr8Text2 does Is to open the font 
file wtth a 1 byte LRL, extract the character size data, 
and preserve In an array the entire proportional 
width table. It then closes the file, and reopens It 
with an LRL that allows TrsText2 to grab data In 
blocks the maximum width of ttte character. The re 
written Assembly routine can accept this block of 
data %fvhole'. speeding up the throughput i would 
Im fiat not having to go to the end of the 
ralrtevt lie wld^ data between every 
character also adds Its bit of speed Increase. 

The only problem now Is that It does take some 
what longer to get to the poUit where you can tell Trs 
Text2 what you want It to print on your screen. This 
wouldnl be so bad, except that If you type In more 
than will fit, you were kicked back to tfie main Trs 
Draw screen, and had to start all over again, from 
scratch. FRUSTRATING! So, In the new TrsText2, 
you will simply receive a message that v^al you 
have typed will not fit on the screen, and you are 
given a chance to try again. Much nicer, and saves 
you time. 

The other problem was the fact that although Trs 
Draw was written to be able to show you directories 
of your /HR picture flies, It was never Intended to do 
the same for your /PR font files. Given the some 
times civptic names of DotWrlter fonts, If s easy to 
forget the exact name of the font you want to use. 
So now, If you ^e ? < ENTER > at the the font 
name prompt, you will be presented with a directory 
of all the fonts online at that time. You are then asked 
again for the name of the font you want to use - with 
the directory still on the screen, to make your selec 
Hon easy! 

INSTAiXATlON 

Just the same as for the previous version. TVpe in 
TRSTEXT2/BAS as you see It below. Save It In 
ASCII format wtth the command: 

SAVE'TRSTE)n'2/BAS",A 

Load your WORKING copy of TrsDraw (never, 
EVER modify your master copy!) and give the com 
mand: MERGE"TRSTEXT2/BAS" 

You can now save the modified program back to 
disk, and enjoy the addlional convenience and Im 

proved spt@d! 

ACKNOWLEQEMENTS: 

Like the previous version, TrsText2 is based on in 
formation about the structure of DotWrlter flies 
provided by Scott McBumey (S.MCBURNEY on 
GEnie). 

Dotwnter and its fonts are copyrighted products 
of ProSoft, Box 560, North Hollywood CA 91603. 
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TRSTEXT2/BAS 



0PeN*RM.F0NT$.1:RELD 1.1 AS C$: 
ON ERROR GOTO 



6 CLEAR:DERNT A-Z:CLS:SCREEN 1: 
OUT 142,1 :SYSTEM "system (break = n)'': 
RESTORE 151:FOR N = 1 TO 116:READ A$: 
F0$ = FO$ + CHRSCVALC&HO- + A$)):NEXT 

8 DIM X,Y,U,V,XX,YY,FL,FG,C,N,M,PN,SX,PT,SF, 
B1,B2,SZ,UU,W,AD!,AR!,A$,B$,AR$,SS$,CM$, 
C2$,FS$,DD$,DC$, RV$,BK$,CU(6),MK(5),ER(3), 
ES(3),CT(2),CS(4),TH(5),TV(10),TT(10),T$(23), 
TX(23),TY(23),X.(25),Y.(25),FB$,FH,FF,PR(96) 

12 DIM SN(825):IF MEM <512 THEN :PRINT: 
PRINT'-lnsufflclent memofy;CHR$(14): 
SYSTEM-system (break = y)'': OUT 140,0: 
OUT 141,0:OUT 142,0: VIEW(0,0)-(639,239): 
CLEAR: SYSTEM ELSE ERASE SN 

43 IF CU = 1 THEN IF FL= 2 OR FL= 6 OR FL= 13 
OR FL = 20 OR FL = 24 THEN 
PUT(X-3,(Y*ABS(FG0)) + V-3),CU: 

PUT ((X*ABS(FG0)) + U-3,Y-3),CU: 
PUT((X*ABS(FG0)) + U-3,(Y*ABS(FG0)) + V 3),CU 

44 WEND:IF CC = -1 AND FL <> 5 THEN 
PUTP<-3,Y-3),CU:IF FL = 2 OR FL = 6 OR FL = 13 
OR FL= 20 OR FL= 24 THEN 
PUT(X-3,(Y*ABS(FG0)) + V-3),CU: 
PUT((X*ABS(FGO)) + U-3,Y-3),CU: 
PUT((X*ABS(FGO)) + U 3,(Y*ABS(FG0)) + V 3),CU 

61 M = 0:IF FLO THEN ON FL GOTO 
36,96,1 00,1 61 ,1 26,85,200,66,68,36,36^90,1 1 5,64, 
36,74,36,36, 69,139,36,36,80,36,36,36 

119 GOSUB35:IFSZ> 825 THEN 
SOUND 0,0: RETURN ELSE DIM SN(SZ)r 
GETp(,Y)-(U,V),SN:U = U-X:V = V-Y 

129 IF B = 20 THEN SCREEN 1: 

PRINT 'Enter the DotWrlter Font filename you wish 
to use:';: UNE INPUT FONT$:IF LEN(FONT$) = 
THEN CLS: SCREEN:GOTO 42:ELSE IF FONTS 
= •?" THEN SYSTEM'CAT /PR':GOTO 129 

1 30 IF INSTR(FONT$,r) = AND INSTR 
(FONTS,*:') <> THEN FONTS = LEFTS 
(FONTS,INSTR(FONTS,':")-1) + 

•/PR* + RiQHTS(FONTS,LEN(FONTS)-INSTR 
(FONTS /:")-M) 

1 31 IF INSTR(FONTS,r) = THEN 
FONTS = FONTS + '/PR" 

132 INPtrrinput # of dots between characters 
(0 9)';SD: ON ERROR GOTO 150 

133 OPEN -IM.FONTSrCLOSE: 



134 GET 1.1:L = ASC(C$):GET 1,2: 
L = L + 256*ASC(CS):GET 1 ,3:W = A$C(C$): 
GET 1.9:NC = ASC(CS):IF NO > 255 
THEN NO = 255 

135GET1,7:PL = A$C(C$):IFPL >6THENPL = 6 

136FORI = 1T0 96:PR = L*NC + l + 1:GET1.PR: 
PR(I) = ASC(CS):NEXT l:PR(0) = INT(W*.6): 
CLOSE:OPEN'RM.FONTS,W:RELD 1,W AS OS 

137 UNE INPUT Text" ;CHAR$: 
IF LEN(CHARS) = THEN CLOSE: 
CLS:SCREEN:GOTO 42 

138 U = 0:FOR I = 1 TO LEN(CHAR$): 
AS = MIDS(CHAR$,I,1):G0SUB 149: 

U = U + W1+SD:NE>m:U = U SD:IFU>640 
THEN PRINT-Une too long to flt!'':GOTO 137: 
ELSE CLS:SCREEN:V = PL*8:FG = 20:FL = 20: 
GOSUB 32:GOTO 42 

139 IF B = 28 THEN U = 0:V = 0:FG = 0:FL = 0: 
CLOSE:GOTO 42:ELSE IF B <> 27 

THEN GOTO 42 

140FO! = VARPTR(FOS): 

FO! = PEEK(FOI + 1) -I- PEEK(FO! + 2)*256: 

FOR I = 1 TO LEN(CHARS): 

AS = MIDS(CHARS,!,1):GOSUB 149 

141 Z = 1:IFAS = " •THENX = X + W1: GOTO 148 

142A = PL*(ASC(AS)-32) 

143FORJ = 0TOPL-1 

144GET1,A + J + 1 

145 DY = (Y + J*8):DS = LEFTS(CS,W1 ): CALL FO! 
(X,DY,DS) 

148 NEXT J 

147X = X + W1+SD 

148 NEXT i:FQ = 0:FL = 0:CLOSE:QOTO 42 

149 W1 = PR(ASC(AS) 32):RETURN 

150 IF ERR <> THEN CLS: 
PRINTFont 'iFONTS;' Is not on line; please try 
again!':PRINT:RESUME 129 

151 DATA DB.83.F5,3E,73,D3,83,C5,D5, 
E5,DD,E1,DD.6E,00,DD,66,01,DD,E1 

152 DATA DD,4E,00,DD,E1,DD,46,00,DD, 
5E,01,DD,56,02,D5.DD,E1,E5,FD,E1 
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153 DATA C5.7D.E6.07,CB.1C.CB,1D.CB, 

1 C,CB,1 D,CB.1 C,CB.1 D.67,3E.07.94 

164 DATA47.3E.01,28,HCB.27.10,FC. 
5F.65,C1,79.D3,81,7A.D3,80.C6.06 

1S6 DATA W,O0,4i,§®,CB,i1,S>B,S2,38. 
07.67.7B.EE,FF.A4.18,f1.B3.D3«82 

im DATA 10.EE,DD.23.FD.23.FD.ES,11. 
C1,10,B8.F1,D3,83.C9 

167* 

158 ' TRSTEXT/BAS wa$ written by George 
Madison, based on concepti by 

159 ' Scott McBumey (S.MCBURNEY on GEnle). 
TRSTEXTU(c)1988by 



160 ' Georc 



SETIT 



TRSTEXT2/ASI 



TRSTEXT2/ASM A routtn® to assist in FAST 
drawing of DotWrtter fonts on the HiRes screen. 



SETSCR IN 



PUSH 

|_D 

OUT 



PROCARG PUSH BC 



A,(131) ;Grab current HIRes 
;screen status 

AF ;...and present it 

A,73H 

(131),A;Set HIRes screen 
; status to our iildng. 
;Save passed parameters 
;on ttie stacit so we can 
;process them one at a time. 



PUSH DE 

PUSH HL 

POP m 

ID L,(IX) 

LD H,(iX + 1 ) ;HL = X Coordinate 

POP ix 

ID C,(IX) ;C = Y Coordinate 

POP iX 

U> B,(iX) ;6 = Lengtti of DotWrtter data 

LD E,CIX4 1) 

l_D D,(IX + 2) ;DE = Poirter to 



PUSH DE 
POP IX 
PUSH f*. 



START 



SET 
NEXT 



CN^/CORD PUSH BC 



LD 
AND 



A,L 
7 



RR H 



;C©p^ X coordinate to lY 
;) got this routine to 
; convert ttie X coordinate 
;to a number and bttmasK 
;from the documentation to 
;ttie HIRes uttitties XINIT, 
;XCUT and XPASTE, which 
;were written by 
;Paui Bradshaw. 



RR 

RR 

RR 

RR 

RR 

LD 

LD 

SUB 

LD 

LD 

JR 

SLA 

DJNZ 

LD 

POP 

LD 

OUT 
LD 
OUT 
PUSH 



L 
H 
L 
H 
L 

H.A 
A,7 
H 

B.A 
A,1 

Z,SKIP 
A 



EA ;i = Bttmasl( for the proper 

;ptxei wtthin byte 
D.L ;D := Byte ttie pixel is In 
BC 

(129), A ;Set Y coordinate 

A,D 

(128),A ;Set X coordinate 

BC 



LD 
LD 

RLC 

IN 

JR 

LD 

LD 

XOR 

AND 

JR 

OR 

OUT 

DJNZ 

INC 

INC 
PUSH 

POP 



.Preserve Y coordinate 

;& data lengtti 
B,8 ;8 btts of data per byte 
C,(IX) ;Get ttie DotWrtter data 

;from ttie buffer 
C ;Rotate leftmost btt 

;lnto carry flag 
A,(130);Get existing graphics 

; screen data 
C.SET ;Cany flag set? 

;Tum ttie pixel on! 

;lfnol.. 



H,A 

A,E 

OFFH 

H 

NEXT 

E 



;We Invert ttie bttmask... 
;And turn ttie pixel OFF! 



;Tum ttie pixel on 

;using the bttmasi< 
(130), A .Return ttie modified byte 

;to ttie HIRes screen 
START;... and keep going untti we 

.finish ttils byte. 
DC ;Polnt at ttie next byte 

;of DotWrtter data 
iY ;lncrement ttie X coordinate 
lY 
HL 



•and copy tt to HL for 
;C?WCORD to work on. 
POP BC ;fliistore the data length counte 
DJNZ CNVCORD ;...and keep going untti 

;we're out of data. 
POP AF ;Get ttie previous screen status, 
OUT (131), A .Reset ttie status, 
RET ;And return to BASIC. 

END SETSCR 



Wrtte to George Madison wtth your questions or 
comments etther c/o TRSTImes or directly to: 
2929 Waverly Drive #212 
Los Angeles, CA. 90039 2033 
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MODEL ill 



TRSDOS 

I . O - 

CORNER 

by Lance Wolstrup 



TRSDOS 1.3. , the granddaddy of Model Hi Disk 
Operating Systems, is still being used by a large 
number of TRS 80 users. It Is a good DOS, though It 
laclcs some of the fancier features of Its competitors. 

Over the years some of its shortcomings were fix 
ed by patches written by various experts, most notab 
ly Andy Levlnson In his series of articles in 80 Micro. 
Computer News 80 published patches by David 
Goben and in their September 1988 Issue, Henry 
Herrdegen presented a fine collection of most of the 
known patches. I contributed a few patches myself In 
our last issue. 

I assume that both David's and i-lenry's articles 
generated a lot of mail for CN80. Certainly, TRSDOS 
1.3. CORNER of last issue produced our largest mall 
response to date. What I am trying to say is that the 
Interest In 'fixing up' TRSDOS 1.3. is there. It seems 
as though this DOS is enjoying a revival. 

Both my Model III and 4 originally came with two 
single sided drives. I soon found that this was not 
enough, so I bought two more drives. Oh, it was 
heaven at least until double sided drives became 
available and reiatively cheap. You guessed It i up 
graded, of course. 

Some of you got double sided drives as original 
equipment when you bought your Model 4. Some 
Jumped on the bandwagon, as I did, and sprung for 
the extra disk space. This works wonderfully when 
using either a Model 4 DOS or one of the fancy 
Model III DOSes. However, If you are one of the 
many who uses TRSDOS 1.3., your double sided 
drives are being thoroughly wasted. 

The problem: 

TRSDOS 1.3. is only capable of reading one side. 



PATCHER 

This problem has been solved once and for all. 
Gary Campbell, a very talented programmer from 
British Columbia in Canada, sat down and wrote an 
extensive machine language program that modifies 
TRSDOS 1.3. so it will accept and use double sided 



drives. This Is not just a series of patches, It Is an ex 
tensive rewrite of DOS itself. 

The program is called PATCHER' and It does 
remarkable things. Not only does it allow access to 
double sided drives, it also gives you four new 
UBrary commands, as well as fixing all known bugs 
in DOS. Most of the patches mentioned above have 
been incorporated and, best of all, YOU DONT 
HAVE TO DO rr. The program does it for you It's 
easy and very fast 



MAKING TRSDOS 1.4. 

First, make a copy of your original, unmodified 
TRSDOS 1.3. master disk. 

When done, reboot with your new copy In drive 
:0. Insert the PATCHER disk In drive :1 and type 
PATCHER < ENTER >. 

You will be presented with a front screen telling 
you to use only a copy of an unmodified TRSDOS 
1.3. disk. You can press any key to go on. 

The next screen tells you basically the same thing. 
Pressing < ENTER > makes PATCHER go to work. 
You will see various tracks and sectors being rewrit 
ten. in Just a few seconds the whole thing is done, 
and the screen tells you to be sure and read the 
documentation fDCT flies Included on the disk. 

F>resslng < ENTER > reboots the system and, 
WOW, you now have TRSDOS 1.4. 

At this point use the first of the four new UBrary 
commands, type DBSIDE < ENTER > and you are 
in business. 

Yes, this is a true upgrade. You now have a better, 
more flexible DOS to work with, something that 
Radio Shack would probably have done themselves 
had they continued support for Model III. 



WHAT'S NEW? 

'Just what is better about it?'. Weil, I'm glad you 
asked. For starters, of course, the double sided 
drives will now read both sides. Here i must mention 
that the two sides are NOT treated as one large one, 
as is standard on the other DOSes; instead they are 
treated as two individual single sided disks, in es 
sence, you have Just doubled the number of disk 
drtves In your system. 

If you have 2 double sided drtves, TRSDOS 1.4. 
will access them as 4 single sided drtves, or if you 
have 4 DS drtves, you now have 8 SS drtves. 

Now, wait a minute. We all know that TRSDOS 
1.3. cannot use more that 4 drives! True, but remem 
ber, this is no longer TRSDOS 1.3., it Is now 
TRSDOS 1.4., and n can read up to 8 drives. 
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The drives are numbered as follows: 



Drive 
Drive 1 
Drive 2 
Drive 3 



top side 
top side = 
top side = 



top fid© - 3 



bottom side 
bottom side 
bottom side 
bottom side 



In other words, If you have 2 doyble sided drives, 
you will now be able to mtmt drive 0,1,4, and 5. 
While this does tate a filSt fiilng yf id to. tt be- 
comes second nalure in no Hme at ail. 



As mentioned above, four new UBrary cot 
are now availabi© for your us®. Hit first, DBSIDi, 
should be used immediately upon boot up to install 
the system. The others are: 

BOOT - this command re$®!$ the system to 
original default conditions. 

CAT displays a shori directory of visible flies on 
specified drive. Do NOT use a colon with this com 
mand. 

SWAP swaps one drive for another. 

While BOOT and CAT are both self explanatory, 
SWAP needs some clarification: 

The correct syntax for SWAP Is: SWAP (dn,dn) 

dn, of course, means drive number. For example, 
if you have two drives, you may not life® th© fact that 
DOS thinks of the bottom sides as drive 4 and 5. Use 
me SWAP command to force DOS to recognize the 
bottom sides as 2 and 3 by: 

SWAP (4,2) < ENTER > 

SWAP (5,3) < ENTER > 

Some commercial software will balic at drive num 
bers larger than :3, so this command becomes very 
useful. You need not attempt to PATCH th© software, 
simply SWAP In your drive with the data disk. Im- 
agine the possibilities! 

FORMAT and BACKUP have been changed exten 
slvely to access up to 8 drives correctly. The master 
password is no longer used, (bye bye 'backup 
limited diskettes'). FORMAT allows ym to verify as 
usual, or skip verification, whScli $pe@ds up tie 
process Immensely. 



The directory display has bten i; 
the full date on all new flies. Old 

tunatety, look ^omewhM 'Strafigp. 
minor trade off. 



, thai is a 



The DIR command no longer scrolls the filenames 
off ti® serisfi; Instead, if there are more files than 
the screen can display, It shows them one screenful 
at a time. 

The UST command has been changed to dlspiiy 
In ASCII as the default 



The annoying 'matter password' prompt has been 
eliminated from the PURGE command. 



THE DOWNSIDE 

I would be remiss in my duty as a reviewer if I did 
not report the one thing that I did not particularly like 
about TRSDOS 1.4. The documentation plainly 
states that only the SYStem flies are copied over to 
your new master disk. This is all too true. 

Ynm new master disk does NOT contain the foi 
towing mm: €0ll¥ERT/CMD. XFERSYS/CMD. 
UPC/CMD, MEMTEST/CMD. HERZ50/BLD. or the 
one file that I consider very important BASIC/CMD. 

I think the documentation should have speclflcally 
explained this, as well as guiding a 'new user step 
by step through the process of copying all the above 
m&fMonM protected flies over to the new TRSDOS 
1.4. master, either by gMng the passwords, or the 
PATCH to disable password recognition. 



THE FIX 

While this Isnl a problem to most experienced 
users, copying protected files over to the new master 
can present many frustrations to a novice TRSDOS 
user. To minimize sweat and potentional foul Ian 
guage, here is the step by step solution: 

1. Boot up with the new TRSDOS 1.4. master disk. 

2. Make the patch to disable all passwords: 

PATCH SYS2/SYS (ADD = 4ED4,nND = 20, 
CHG = 18) < ENTER > 

3. Insert the TRSDOS 1.3. master in drive :1 

4. Copy any of the files from TRSDOS 1.3. master 
to the TRSDOS 1.4. master. For example: 

COPY BASIC/CMD:1 :0 < ENTER > 



CONCLUSION 

Hiis Is a veiy attractive package for Model ill 
TBSDOS mmt wnh doubis sided drives. As a matter 
of fact, It may even give single sided users of 
TRSDOS the incenth/e to get the double sided drives. 

PATCHER does exactly what It is supposed to do. 
It does It fast and it does It well. It makes woridng 
with TRSDOS a pleasure. I like it 

PATCHER Is available at $29.95 from: 

DBSIDE 

Suite 209 1051 KLO Road 

Kelowna, British Columbia. Canada VI Y 4X6 

(604) 762 8593 
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• Modol 4 Batic 



WINDOWS 
IN BASIC 

by Robert Doerr 



Why windows? 

Mainly, I think, to get 

the attention of the user. 



There are two Idnds of windows to be written in 
Basic. I call them informative and active windows. If 
the program can restore a screen, then a window 
consisting of an attention getting informative mes 
sage can be displayed within a border, say, upon 
certain data entry errors. 

The last line of such a message would typically 
be: 'Hit < ENTER > to continue'. Upon an 
< ENTER > , the original screen would be restored. 

An active window would be used for, say, a 
menu. Instead of the common "Please enter your 
selection by number* sort of line on a menu screen, 
with an acth^ window, selection could be made by 
positioning the cursor at, or on, the option desired 
and hitting < ENTER > . 

The menu could be a menu of menus; the posi 
tlons of succeeding windows could serve to indicate 
the depth to which the selection process has gone. 
The number of columns of options displayed is 
limited only by the space on the screen; this blurs 
any distinction between such windows and full 
screen operations. 

I wrote the following small program to 
demonstrate the process. This is a complete 
program, so you may typ© W In and RUN It 



10 REM Demonstrate MENU WINDOW In BASIC 

20 REM (c) 1988 Robert M. Doerr 

40 PRINT CHR$(15);: 'cursor off 

50 PRINT@(0.16),* '';$TRING$(25,35)* ";; 

FOR R ^ 1 TO 21 " 

PRINT@(R.16).'' #*;SPACE$(23);''# ';: 

NEXT. 

PRINT@(21.ie).« •;STRINQ$(26.36)'' "; 



88 DEF FNINWID$(A$) = CHR$(16) + A$ 
+ CHR$(17) 

80 DIM 0P$(3): 

FOR 1 = 1 TO 3: 

READ 0P$(l): 

NEXT: 

DATA OPTION 1. OPTION 2,0Pn0N3."0NE ', 

TWO •.THREE*: 

FOR 1 = 1 TO 3: 

READ RE$P$(t): 

NEXT 

100 PRINT@(2,26)."MENU*; 

111 FOR 1 = 2 TO 3: 
PRINT@(3 + 2*I,20),OP$(I); 
:NEXT 

122K = 1: 

PRINT@(5,20),FNINWID|(OP$(1));: 
K = 1 

130 PRiNT@(11,20),'USE VERTICAL ARROWS*;: 
PRINT@(13,20),TO SELECT;';: 
PRINT@(16,20),THEN <ENTER>'; 

133A$ = INKEY$: 
IF AS = " THEN 133 

144 IF A$ = CHR$(10) AND K < 3 
THEN PRINT@(3 + 2*K,20),OP$(K);: 
K = K+1: 

PRINT@(3 + 2*K,20),FNINWID$(OP$(K));: 
GOTO 133 

155 IF A$ = CHR$(11) AND K>1 THEN 

PRINT@(3 + 2*K,20),OP$(K);: 

K = K~1' 

PRINT@(3 + 2*K,20),FNINWID$(OP$(K));: 

GOTO 133 

166iFA$ = CHR|(13) 

THEN ON K GOTO 200,300,400: 

ELSE 133 

200 PRINT@(18,20),'CHOICE: ■;RESP$(1);: 
GOTO 130 

300 PRiNT@(18,20).'CHOICE: ';RESP$(2);: 
GOTO 130 

400 PRINT@(18,20),'CHOICE: ';RESP$(3);: 
GOTO 130 




TRSTimes 1.6. NOVEMBER 1988 PAGE 14 



CP/M The Alternate DOS for Model 4 



by Roy Beck 



Rick Donley of Ohio has aslcad about av/aliabiiity 
of CPM programs suitable for use on the Mod4, and 
about quirks which may pr#wM ©psrMfon of specific 
programs on our machte@s. 



Under Montezuma Micro's CPM, tht Itod4 has to 
behave in a somewhat schizophrenic mode. This is 
not a iarge probiem, and is certainly not unique to 
the Mod4 appiicalion. CP/M expects to operate 
within a rather simpleminded bailiwick, consisting of 
it' s major parts CCP and BDOS in a 64K (or 
smaller) memory map. The kernel of CP/M (if I may 
use that term in this case), neither knows nor cares 
what kind of peripherals are attached to your CPU 
and memory. The BIOS portion of your CP/M Is 
tailored, In our case, to fit the Mod4. In another 
machine, the BIOS is tailored to fit that other 
machine. This all sounds elementary, I know, but I 
am leading up to something. The differences be 
tween machines are largely In the peripherals, Inciud 
ing the terminal (keyboard and CRT), the mass 
storage devices (floppy disks, hard disks, and other 
devices, including tape, etc), and the i/O devices 
(printers, modems, etc). Further, some machines 
have unusual Function keys which are not present on 
other machines. 

One of the virtues of the CP/M system is the por 
tablllty of programs between machines. This Is ac 
compllshed by the design and PROPER USE of the 
BIOS calls. So long m a particular program uses 
only the legal BIOS calls, it should run just fine on 
any CP/M machine. Conversely, any program which 
operates by directly accessing hardware features of 
a specific machine is almost certainly going to mal 
function if transferred to a different brand of 
machine. Special Function keys, unfortunately, fall 
Into this category. 

When the question artses, "Will THISPROG.COM 
run on my Mod4?*, the answer has to be qualified, 
based upon wheVier the program respects the BiOS 
and uses only the legal BiOS calls, or whether the 
program operates by accessing some hardware fea 
ture. In the former case, it should b® OK. In the latter, 
It probably won't function. 

Let's look £ IWe at the schlioM penmnM^ 0f &® 
Mod4 under CP/M, Tl?« terniliiil- fme^tow of a dm- 
sic CP/M machine m® n&rmM^ eidemal to tie com 
puter and ars hoii$94 in a separate 'black box*. The 
eartiest termlryais were simply Teletype machines. As 
CRT and keyboard packages became available, 
CP/M used these, in both cases, the BiOS of CP/M 
did little more than shuffle terminal commands over 
to the terminal through a cable and accept what 



came back by the same path. But the Mod4 (and 
many other machines) does not have a separate ter 
minal. instead, the terminal functions are an integral 
part of the computer, and some part of the 
computer's personality must be devoted to control 
ling the CRT display and 'listening' to the keyboard 
for operator input. Thus in the Mod4 the BIOS must 
have two persofi^liet, one which operates in the 
ctassie CP/M fashion and a second one which takes 
care of the terminal housekeeping functions. Natural 
ly this complicated life for Monte (Jesse Bob Over 
holt) when he designed our BiOS. Our BIOS is writ 
ten to emulate an ADM3A terminal, within our 
hardware limitations. The ADM3A has some memory 
and intelligence within it, so the Mod4 BiOS has to 
be smart enough to perform those same functions. 
Thus It is obvious that our BIOS Is schizoid, having 
to perform two separate but related tasks; handling 
of computer I/O and emulating the behavior of an 
ADM3A terminal. 

It Is my belief that most CP/M programs in public 
domain (PD) will operate satlsfactortly in our 
Mod4's. However, I am certain there are programs 
around which access hardware directly in the 
machine they were written for, and these programs 
will almost certainly fall In a Mod4. 1 suspect this to 
be true of some of the more exotic KayPro 
programs, in fact, i suspect many disk sector editing 
programs (those which function like SuperUtillty) ac 
cess the hardware directly, and are therefore unlikely 
to run on a Mod4. /Vnother class of programs which 
may access hardware directly are those text editors 
and word processors written for other machines 
which also have their monitor functions combined 
with the CPU and memory, in such cases, the author 
may well have directly accessed screen memory be 
cause It was easy and FAST, and yielded significant 
advantages to him. The resulting program will there 
fore only run on the machine for which It was written. 
Modem terminal programs are anotfier questionable 
area. All you can do Is try ttiem and see tf ttiey work. 

Biek hm also noi^d In his letter to me ttial he has 
found some Osborn@ toftware and some Com 
motors 128 progrMut ¥*lch will execute property 
OR te Mod4, but he has also run into software which 
will not execute properly because of ttie lack of cer 
tain special function keys not found on tfie Mod4. 1 
should note here that Monte has allowed us to 
generate most control characters from the Mod4 
keyboard by using combinations of keys. If you can 
determine what control code is expected by a 
program In response to a special function key, It 
may be possible to produce that value from the 
Mod4 keyboard, ttius allowing ttie program to njn 
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even though we cionl have that particular function 
key. l-ie also asked if newer or older software Is 
more likely to run on the Mod4. Here I have to plead 
Ignorance; sorry about that 

Rick, If you could prepare a small article on which 
programs run properly and which do not, and why 
they do not. if you know, I believe Lance would be 
pleased to publish It in the TRSTlmes. Naturally, this 
would be of value to our other readers. 

Incidentally, Monte (Montezuma Micro) offers an 
extensive library of CP/M software which will run on 
the Mod4. Another source of programs Is Central 
Computer Products of RImore CA. They do not 
supply programs In the Mod4 disk format, but if you 
buy programs In the Kaypro 4 format, you can con 
vert them yourself to the MM format I personally 
bought Wordstar 4.0 in a Kaypro formal, converted It 
to MM format, and am now running it on my Mod4. 
in conclusion on this topic, most PD CP/M software 
will probably run, but you can only be sure by trying 
tt 

DDT 
The CP/M DEBUG 

DDT Is an acronym, of course, and stands for 
Dynamic Debugging Tool. It has much the same kind 
of capabilities we expect from the DEBUG's Included 
In the various TRS DOSes. Naturally, It has differen 
ces, and I will point out some of these. 

DDT is a transient 
program, and must be 
called from disk when 
we need It DDT must be 
called from DOS ready 
(A > ), and may be 
called by itself or with 
the program we want to 
operate on. Why would 
we call It by itself? A 
couple of reasons: We 
might want to analyze a 

portion of the BIOS, or we might want to construct a 
small program in memory. If we are going to 
operate on a program, we would call DDT with the 
name of the program to be operated on as a 
parameter. An example of the tatter case Is as foi 
lows: 

A> DDT MYPROG.COM 

This would load both DDT and MYPR0G.COM, 
and leave DDT in control of the machine. 




* Display disassembled Instructions from a region 
of memory (uses 8080 mnemonics). 

* Assemble and Insert anywhere In memory a 
sequence of 8080 mnemonics. 

* Display and alter the CPU (8080 assumed) 
register contents. 

*Execute code sequences, either single stepping 
or with breakpoints. 

Those of you who go back a few years in TRS 
machines may note strong similarities between DDT 
and RSM monitor. About the only difference Is the 
ability of DDT to assemble and insert code Into 
memory. Of course, RSM had some capabilities not 
present in DDT. 

An Important concern about DDT is where tt 
resides In memory, tt Is different from ail other CP/M 
programs in that tt does not load into the Transient 
Program Area (TPA) starting at 100H. Instead, tt over 
lays the CCP, which is not required when DDT is ac 
tive, and therefore DDT does not use up part of the 
TPA. Thus any application program in the TPA is un 
aware of DDPs coresidence, and under most cir 
cumstances is unaffected by tts presence. To retum 
to normal CP/M operation, the '^C command must 
be Issued to cause a warm boot, which will restore 
CCP. 

DDT has a special cursor to let you know tt is 
present the - or dash Is used, if a program is 
loaded In when DDT is called, the following will ap 
pear upon completion of the load: 

A > TESTPROG.COM DDT VERS X.X 

NEXT PC mmmm nnnn 

The address mmmm represents the first free ad 
dress after TESTPR0G.COM In the TPA, and nnnn 
represents the value of the program counter (PC) 
which DDT will use for any action tt takes. This can 
be changed as you wish. 

The command I wtth a filespec Is used to create a 
file control block (FCB) In memory, and following 
this wtth R will cause DDT to load a desired 
program. The syntax is: 

-ITESTPROG.COM 

This creates the FCB and prepares for loading of 
the program, but does not actually load tt. This will 
be followed by: 

-R or -R0200 



What can DDT do for us? Here Is a partial list 

* Fill a block of memory with a given value. 

* Display memory contents In ASCII and Hex, 
similar to Superzap. 

* Edtt specific memory locations. 

* Perform block moves of portions of memory. 

* Enable the buiitin Hex calculator for adding and 
subtracting Hex numbers. 



R by ttsetf will load the program specified by I at 
the usual location In the TPA, namely 0100H. The 
second form of the command will allow loading 
anywhere in RAM. Be careful you don't shoot your 
self In the foot wtth this one, as you could easily over 
lay some essential code, such as DDT, BIOS, etc. 

The command D will display the next 192 bytes of 
memory in Superzap fashion, starting at the value 
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listed under PC a$ described above, if an address 
(In fiex) Is placed Immediately after the D, then the 
display will begin at this address, if a comma and a 
i®cond address are appended to the first address, 
then a range of locations will be displayed, if the 
range of lottiores 1$ grsatsr ftan 192, then ^S must 
be um4 to ftarfitep tcroilng. 

A single valye em bB umtH to fill a block of 
memory, the ^^^f^m Is: 

-Fmnimm,nnnii,v¥ 

where mmmm and nnnn are the limits of the biocl( 
to be filled, and w is the hex value to be used to fill 
the block. 

The code starting at a location can be disas 
sembied and displayed with the L(llst) command. 
The syntax is: 

-Linminiii,nnnn 

Unfortunately, the mnemonict will b% M&Vt 8080 
values, which take a little getting used to. if Z 80 
code is disassembled many instructions will be dis 
played as ?? = , which means DDT could not Inter 
pret the instnictlon as an Intel mnemonic. This can 
also be caused by attempting to disassemble data. N 
should be noted that there are other versions of DDT 
in the marketplace which can correctly handle Z 80 
code. However, since all of us received Digital 
Research's DDT with our MM CP/M, I am explaining 
it even though it Is not the one best suited for our pur 
poses. 

The Set command (S) is similar to M of the TRS 
Debuggers, and displays and changes memory con 
tents. Syntax Is as follows: 

'Smininin 

Memory contents starting at mmmm are dis 
played, a byte at a time. After each byte is displayed, 
you have the option of changing it or going on to the 
next one. To leave it unchanged, just hit Enter, to 
change It, enter the new hex value and then hit Enter. 
A period *.' is used to terminate the function. 

DDT Includes a mini assembler which is a con 
venlent way to patch code in memory (If you know 
Intel mnemonics). A stands for asserhbla. Th@ s^^m 
Is: 

'Annnmin 

where mmmm Is thi ^ri iig &MmM. Th® user 
types in the MM mmroofilc «d m^ required hex 
values at each address, followed by Enter. The mini 
assembler will insert the appropriate values into the 
memoty locations (1, 2, or 3 locations as required ). 
The function is terminated by Enter alone, or by a 
period. An erroneous mnemonic will cause a 7 to be 
displayed and also terminate the function. 

The Block move function Is commanded by M, 
with syntax as follows: 
-|yimmmin,nnnn, dddd 



where mmmm and nnnn are starting and ending 
addresses of the area to be moved and dddd Is the 
start of the destination area. 

The Hex calculator function Is commanded as fol 
lows: 
-Hmminiii.nnnn 

TMt command will return the sum and difference 
of i» Iwo' km valuet, ffiinmm and nnnn. It is fre- 
quently useful in figuring offsets or displacements In 
hex values. This Is the same as the B command in 

RSM. 

There are several other DDT commands, but 
these are primarily useful to machine language 
programmers, and I have already run over my ai 
loted space for the month. Accordingly I will only 
mention the commands, which are: 
G goto and execute, with or without 

breakpoints 
T traces and displays a finite number of 

instructions 
U executes a finite number of Instructions v/tthout 

displaying them 
X displays and allows alteration of CPU registers 
(ignores the Z 80 registers not present In an 
8080 chip). 



* NEW* 
Recraaiional & EducaUonai Computiiig 

Have you b^on mlttlng out on the only 

publication dovotad to tiio playful conneetlon 

of coRiputert and malti? 

The REC Newsletter features programming challenges 
and recreaUonai math, such as: the Magic of Schram 123 
String, the probability of an N game at Bingo, time to 
complete a collection, 6174, Next Number In Sequence, 
Locate the Bomb, perfect numbers, Fibonacci numbers, 
prime number generation and contest, self reference and 
paradoKds, self listing program challenge and solution, . 
pi, mystery programs explained, probability, Monte Carlo 
simulations. Also: Fractal art, the world's best card trick 
(based on algebra), reviews of best software and books, 
®ditorial, humor, cartoons, art, reader solutions, and 
more! 
Programs tuppoitod for TRS -80, Tandy, MS-DOS 
and otiiort. 

REC It awallablo for $24.00 per calendar yoar of 8 

Ittuos 

REC Newtlatter 

129 Carol Drive 

Clarke Summit, PA. 18411 

(717) 586 2784 
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HUNTING FOR BURIED TREASURE 



Peeking & Poking Model 4 

by Tim Sewell & Lance Wolstrup 



The Model 4 run« almost twice as fast as the 
Model III. Yet, a Model 4 program which makes fre 
quent use of text or graphics on the screen will ap 
pear to run much slower than the exact same 
program written for a Model III. 

The reason: The Model III screen Is memory 
mapped. That Is, a portion of RAM has been set 
aside to exclusively hold the contents of the screen. 
The screen begins at memory location 3C00H 
(15360 In decimal) and goes on for the next 1023 
memory locations. The Model 4 screen is NOT 
memory mapped. Instead of having an actual physl 
cal screen reside at a particular series of memory 
locations, the authors of TRSDOS 6.x and LS DOS 
6.x opted for a different way of accessing the screen. 

This method gives us a few extra 'HC of RAM, but 
there are, unfortunately, a couple of trade offs. 
Screen access Is very slow, and direct communica 
tion with the screen is not possible: 

You CANT PEEK and POKE the screen. 

(Boo, hiss, loud cat calls, etc.) 

OHYEAH7? 

While liking the extra 'K' of RAM. I certainly would 
much prefer to have a screen that would be speedy 
and could be manipulated with the PEEK and POKE 
commands. After talking to other members of the 
Hackers' Group over uncountable cups of coffee, 
then disassembling and studying strategic portions 
of DOS, i finally came to the conclusion that the 
'impossible' is indeed POSSIBLE We can speed 
up the screen and. better yet we can use the PEEK 
and POKE commands to communicate with It directly. 

The Model 4 Technical Reference Manual states 
that "Video RAM exittt from F800H to RFFFH'. 

This Is one of those famous half truths that con 
fused us all for a while. The real truth Is that this 
memory Is only Video RAM tome of the time. It is 
shared memory. Most of the time it Is NOT Video 
RAM. That is why you cannot PEEK and POKE it 

A clever DOS routine starting at 81 7H determines 
whether the video should be enabled or ditabied. 
While this routine does many Important housekeep 
ing chores, I will only discuss Its more elementary 
points, the ones important to our task. 

Memory location 78H (OPREQS, In the flag table) 
holds information about the screen. This location is 
called the 'PORT 84H Image'. PORT 84H controls 
the video. Whenever we want to do something spe 
cial to the screen, we put the appropriate value into 
78H, and then OUT 84H with the value from location 



78H. (We did this in issue 4 to get the 80 column 
screen from Model III mode.) 

To enable the Video RAM, the DOS routine first 
picks up the value from 78H. It then proceeds to 
AND this value with FCH. Since the bits of FCH are 
1111 1100, It becomes obvious that bit and 1 are 
being forced off, while the the rest of the bits are 
preserved. Then the value is OR'ed with 82H (1000 
0010). In other words, bit 7 and bit 1 are mandatorl 
iy turned on while bit remains off. This value is now 
sent to PORT 84H. Video RAM is enabled and thus, 
the screen is updated. 

The routine then immediate^ proceeds to disable 
Video RAM. This Is done by OUT 84H with the 
ORIGINAL value from 78H. 

Confusing? You bet It Is!! 

To make some sense out of this, get into Basic. 
Remember that Video RAM is always, by default, dis 
abied. Lef s find out what the value of 78H is: 

PRINT PEEK(&H78) < ENTER > 

You should see the decimal value 135, which 
translates to 87H, or 1000 111 IB. Note that bit Is 
turned on. From this we can conclude that 

When Video RAM Is disabled, bit of 78H is ON. 

Contrast this to the above explanation of enabling 
Video RAM. There bit remained OFF. 

Conclusion: Tuming OFF bit of value In 78H 
enables Video RAM. 

Lef s test this theory. Rrst, tuming off bit of the 
value 135 changes it to 134. (Not too dffficutt!l) 

Now type: 

POKE &H78.134:OUT &H84.134 < ENTER > 

What happened? Most likely, your machine froze 
up (CRASH). 

Well, doni )ust sit there! Go ahead, REBOOT. 

Does that mean that our theory Is wrong? 

No, DOS Just got temporarily confused. We can 
rectify this by setting HIGHS to the start of Video 
RAM. This could be done from DOS, before we go 
Into Basic, by setting high memory to F7FFH: 

BASIC (14 = 63487) < ENTER > 

Setting the top of high memory from DOS Is Incon 
venienL I prefer to do It while in Basic. Here we have 
a command that wfli do it for us: CLEAR. 

This command has changed somewhat from 
Model Hi Basic. It is now capable of setting the 
highest memory location which Basic can access. 
Get in Basic and type this: 
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CLEAR.&HF7FF < ENTER > 

POKE &H78.134:OUT &H84.134 < ENTER > 

This time you didnl crash. Instead you have just 
enabled Video RAM permanently. You can now 
PEEK and POKE the screen. Try It by typing: 

POKE &HF800. 191 <EMTER> 

How about fiMI Tilt pixel M i J ill up. Wcw try to 
read the pixel: 

PRINT PEEK(ftHFi0O) < ENTER > 

The value 191 Is dlsplsQfed on the screen. You 
Just PEEKed and POKEd the screen, ft starts at 
&HF800 and continues for the next 1919 memory 
locations. AND you can access any and all direciy. 

Since the screen Is now permanent, regular 
screen commands will be executed faster. The trade 
off, you just lost 2K of user RAM. You can, however, 
restore the startup values by: 

CLEAR, &HFFFF < ENTER > 

POKE &H78,135:Oirr &HS4,135 <ENTER> 



With this information, new and Interesting 
programs can be written. Model I and III programs 
which use direct screen access can be translated to 
Model 4 with ease. All Mndd of possibilities are now 
available. 

LABEL 204 

A few months ago, Tim Sewell converted an old 
Model III public domain program to run on the 
Model 4. This program, called LABEL200, creates 
disk labels on the DMP200 printer. As It is a very use 
ful program, we decided to modify the translation to 
demonstrate just how fast direct screen access can 
be. 

Weli, one thing led to another and before long, 
Tim and I had modified the modified modifications 
to the point that a brand new I_ABEL200 was bom. 
This one, because it is strictly for Model 4, Is called 
LABEL204/BAS. 

The original program consisted of a series of 
menus to guide you through the creation of a disk 
label. When you had selected the appropriate 
categories, a neat labei would then be prtnted. This 
was written specifically for the DMP200. 

The new version sticks to the original c&mBpl It 
also uses menus for the user to choose the various 
information for a disk label. But no longer do the 
menus scroll slowly onto the screen. They now ap 
pear Instantly as WINDOWS. 

To explain the pm§fdm, lift took at each window 
In turn. As the program Is loading and going through 
some Impoilasif ml up routines, a minor front screen 
is displayed. Then, instantly, the first window pops to 
the zcTBBn. At the top you'll see the program name 
and the credits. Below is the menu for the label 
header, the one decrlbing the program type. There 
are 20 choices, ranging from OPERATING SYSTEM, 



EDUCATION. WORD PROCESSING to ARCADE 
GAMES, COMMUNICATIONS or DATA BASE. 

Should you find that none of the listed choices fits 
your disk, you have an option where you can ^e 
your own header. You can also exit to DOS from this 
window. Note that selections are not made by typing 
the usual number or tetter, Instead you move a point 
Ing hand next to the desired selection and press 

< ENTER > . The hand Is moved by pressing the 
arrow Iceys. Fyll wrap around In all directions is 
©mpfoyed. 

When < ENTER > is pressed, the category being 
pointed to by the hand Is selected, and the next win 
dow Is displayed. 

Be aware that, except for the first window, you 
may step back to the previous window by pressing 
<F1>. 

Window 2 simply allows you to ^e the name of 
the disk If s your preference. 

Window 3 enables you to select the DOS type. 

Window 4 Is used for selecting the number of 
tracks and the format density of the disk. 

Window 5 prompts you to type additional Informa 
tion about the disk again, your choice. 

At this point the labei has been created and is dis 
played in a window towards the top of the screen. 
Observe that though you were not prompted for the 
date, it appears on the right hand side of the third 
line of the label display. If your Model 4 is not using 
a date then it Is displayed as 00/00/00. 

You now have five choices: 

PRINT LABEL - choosing this option prompts 
you for the number of labels you wish to print 999 is 
the maximum. After choosing the number of labels, 
you are prompted to type a starting serial number. If 
a number is typed, then each label will carry an in 
crementing serial number. If a serial number is not 
desired, simply press < ENTER > and your labels 
will be printed. 

EDIT LABEL - When perusing the label display 
toward the top of the screen, you may find that you 
wish to change one or more of the entries. Choose 
EDIT LABEL and press < ENTER > . Now point the 
hand to the entiy you wish to change and press 

< ENTER > . You will now be able to type your cor 
rectlon. You may continue to edit any or ail of the 
entries. When done, press < F1 > . 

MJQH LABEL - this option help you position 
your labels correctly In the printer. It will fill one label 



SELECT PRINTER - Whereas the original 
program only supported the DMP200, we have In 
eluded the printer codes for Epson and compatible 
prtnters. 

REBOOT DOS ■ You'll be prompted to confirm 
this choice by ^ing Y. Doing so leaves Basic and 
completely reboots the system. Any other key brings 
back the window you were In. 

Note that the < BREAK > key Is disabled durtng 
program execution. If you absolutely INSIST on 
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breaking out of the program, we have included a 
'back door' command. Pressing < CLEAR > <B> 
enables the < BREAK > key. 

While program Is for the most part self ex 
pianetory to use, the programming is anything but 
that, so let's talk briefly about the most interesting 
portions of the code. 

I-ABEL204/BAS is written in 99% pure Basic. 
(YES, I admit it - we did use two teenle weenie 
machine language routines - 1 hang my head In 
shame). 

The two ML routines were used to obtain the 
necessary speed to 'push' the window onto the 
screen as whole, rather than scrolling it visibly to the 
naked eye. They are both simple LDIR routines and 
they perform a variety of duties. 

The program begins at line 1000. Here, among 
other things, we protect all memory from COOOH to 
the top. The number of printer drivers are set to 2 
(PD = 2) and the default printer Is set to 1 (PDF = 1). 
Une 1 005 disables the < BREAK > key, enables 
the 'constant' screen, forces special characters, and 
finally, turns off the cursor. 

Line 1010 reads the first machine language 
routine from line 20 and FH>KE$ It Into protected 
memory at FFFOH. At this point it is a 'dummy 
routine. It reads as follows: 

LD HL,OOOOH 

PUSH HL 

POP DE 

INC DE 

LD BC.OOOOH 

LD (HL),0 

LDIR 

RET 
Line 1 020 reads the second ML routine (from line 
30) and POKES It into protected memory at FFEOH. 
This routine is also a 'dummy' at this point It reads: 

LD HLOOOOH 

LD DE,OOOOH 

LD BCOOOOH 

LDIR 

RET 
The address of the first ML routine is stored In 
variable ML1. The second routine's address Is 
stored In ML2. 

So far, so good, but you might be wondering just 
why we have bothered to POKE In two ML routines 
that are unusable. The answer Is, we have estab 
llshed two ML routines that can be PROGRAMMED 
from within Basic. We will use this concept in line 
1100. Here we set up the following variables: 
H = &HCO:L = 0:B = 7:C = &HFF:CH = 32: and then we 
proceed to the subroutine In line 100 to program the 
first ML routine. What is happening Is that the value 
of H is POKEd into ML1 + 1 , Which Is FFF1 H. This Is 
followed by POKEIng the value of L Into ML1 + 2 
(FFF2H). Then the value of C is POKEd into ML1 + 7, 
followed by POKEIng the value of C Into ML1 + 8. 
Lastly, the value of CH Is POKE Into ML1 + 10. 



The machine language routine starting at FFFOH 
has now been modified to read: 
LD HLCOOOH 
PUSH HL 
POP DE 
INC DE 
LD BC.07FFH 
LDIR 
RET 

By CALLing ML1 In line 110 we execute the 
machine ianguge routine. In this particular case the 
machine language routine erased the 2048 consecu 
tive memory locations starting at COOOH (sort of a 
non visual CLS). 

It could have been written In straight Basic as: 

FOR X = &HCOOO TO &HC001 +2047: 

POKE X,32:NEXT 

This would have been unacceptabty stow, so we 
opted to do It with the much, much faster machine 
level code. 

Une 1110 sets D = &HC2:E = &HEF:A$ = 'L A B E 
L 2 4' and proceed to the subroutine In line 200. 
This is the routine that employs the second ML 
routine. You might think of It as a very fast PRINT® 
command. It Immediately sets B = 0. Then, by 
PEEK(VARPTR(A$)), It flnds the length of A$ and 
puts that in variable C. Next it puts the Least SIg 
niflcant Byte (LSB) of the address of A$ into L, foi 
lowed by stufflngt the Most Significant Byte (MSB) of 
the address of A$ Into H. 

Une 210 POKES the value of L into ML2 + 1, the 
value of H Into Ml-2 + 2. The value of E is POKEd 
Into ML2 + 4, D Into ML2 + 5, C Into ML2 4 7 and B 
Into ML2 -(- 8. If you have ever attempted anything at 
all In Assembly Language, you will notice that we are 
actually loading the HL, DE and BC registers direct 
ly from Basic. 

The second machine language routine Is now 
modified to this: 

LD HL, address of A$ 
LD DE,0C2EFH 
LD BC,lengthofA$ 
LDIR 
RET 

Une 220 CALLs ML2 to execute the routine. The 
text In A$ has been stored beginning at memory ioca 
tion C2EFH. This could have been written in straight 
Basic as: 

FOR X = TO LEN(A|)-1: 

POKE &HC2EF + X,MID$(A$,X + 1,1): 

NEXT 

Une 1120 does the same as line 1110, but with a 
different value In A$ and another PRINT@ memory 
location in D and E. 

Unes 1140 to 1160 F>OKEs a border around the 
text 

Ail of the above code has produced a temporary 
screen In memory. It Is NOT visible at this point. 
Remember that we have established the memory 
starting at F800H as video memory. Since whatever 
we put there will be displayed on the CRT, we wilt 
copy the 1920 memory locations (80X24) starting at 
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COOOH over to the video memory block starting at 
F800H. 

Line 1180 puts the values in H and L to Indicate 
the start of the screen to be copied. Then we 
GOSUB 900 where D and E are given values that 
point to the start of video memory. In line 910 we 
give B and C ii@ value of how many bytes to copy: 
0780H (1920). Then we GOTO 210 where, just as 
before, we actually load registers HL, DE and BC 
with the above values. Un@ 220 executes the 
machine language routine and ii@ temporary «crii®fi 
at COOOH Is copied onto the visual screen at F800H. 
BAM FASTft 

While this screen Is being viewed, the windows 
are being created In memory using the exact same 
routines as above, (lines 11 90 to 1910). 

The code beginning at line 2000 starts the actual 
visual program. After copying the the menu choices 
Into the X$ array, setting the appropriate values to 
move the pointing hand correctly, the first menu 
screen is thrown onto the CRT In line 2010. 

There are plenty other techniques of interest, but I 
am running out of room, so should you have ques 
tlons about a particular sequence of code, be sure 
to wrtte and let me know. I will then try to cover the 
questions in detail In upcoming issues. I will close by 
pointing out that ending the program causes a com 
piete reboot. This is done in line 3610 where 
A = &H1BF2:CALL A is a call to the @\PL SVC 
v^ich does a software resej. Why reset the machine? 
Because the program consumes almost ail the avail 
able memory. Simply ENDIng would leave you with 
anywhere from 400 bytes to IK of memory. Typing 
NEW leaves 13540 bytes, so my preference Is to 
reboot and thus restore ail values,. 

And now > heeeeeere's TIM! 



The Fyil 

(But Possibly Not Complete) 

HIstorf of LABEL204/BAS 

by Timothy Sewell 



i had been searching for a decent label printing 
program ever since I bought my first Modal 4P back 
In 1984 (seems like only yesterday). Sure, there were 
plenty of label generating programs to be found In 
the Public Domain, but It seemed like ALL of them 
were written to be used on an EPSON prfntw with ad 
vanced graphic capablllm. Since I ovm a BMP 7M% 
printer, the programs would not work, nor tomM ftty 
be converted since the BMP 20S 49mWt hmm Super- 
Micro- Squashed- Si!!®o«tieci'Wliatev@r%pe of com- 
pression. It's ptl t falifyf of woithofse that hasn1 
let me down ¥®f 



So. what was i to do? I had bought this computer to 
learn about programming, but I was bitten by the BBS 
bug and spent all of my computer time running up phone 
bills that would rival the national debt That meant writing 
one on my own was definitely out. To my knowledge 
there were no commercial programs available that sup 
ported the DMP codes, so I was out of luck there. I even 
tually resorted to using the form letter and type expansion 
features of LeScrlpt (my favorite word processor) to 
create my labels. This worked )ust fine for my needs and I 
went on quite content with the knowledge that my diskettes 
were now property labeled. 

Ifi the summer of 198S, I had Just called one of my 
favorite BBS systems up in Northem Califomia and got a 
suprising banner as the opening message. The Marin 80 
BBS had been operating for several years on a Model 4 
under the TBBS bulletin board program (the best ever 
written for the Model III). TBBS was now going to drop 
support of the TRS 80 version and release an new en 
hanced version for the IBM/MS DOS community. Will 
Gortner, the Sysop of Marin 80, had just bought an IBM 
clone and the new version of TBBS, so he wanted to sell 
his complete Model 4 system which Included all of his 
software and hard drive. 

The price for the system was right so i called SVIIi and 
arranged a weekend where I could drive up to the San 
Francisco area and pick it up. After a pleasant 16 hour 
drive In my (then) new car, I was back home to fully ex 
plore the spoils of my purchase. 

I had noticed the nice format of the labels that were on 
the disks. I had aiso noticed that Will owned a DMP 200 
(which he kept for his new BBS). After looking over 
several of the disks I found a program written in Model III 
BASIC called LABEIjSAS. I tried out the program and I 
was pleased to find that It produced labels the same way 
as the labels on the disks I fust obtained, i was In heaven! 

The code was very simple and to the point You typed 
In the information you wanted and the label came out on 
the printer. After a closer look at the code, ft appeared 
that someone was attempting to convert the program to 
Model 4 BASIC, but had given up. I Just left It alone and 
continued to make my labels. This worked Just fine for a 
few months until my disk collection started to grow so 
large that I needed to speed up my label making process. 

l.ABEt7BAS was quite tedious on a long haul due to 
the fact that you had to physically type EVERY bit of Infor 
mation for EACH label you wanted to print That came out 
to a lot of typing ^<3 > thought I had bought this computer 
to SAVE me time and work (HAi). 

So, I finally sat down, yn plugged the phone line, and 
adu^iy irlMlad to modl^ tha code "borrowing* routines 
imm tie program and asking a few questions In the BBS 
eommuntty. After a few days I came up with a program 
fiat did a pretty good Job of what I wanted. Names and tit 
les that i used often were now available to me via a menu 
and single keystroke, as well as the type of DOS and disk 
format Information. The automatic date feature from the 
original program was retained and I was quite pleased 
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with the end re$utts. As a matter of fact, $o pleased 
that t decided to release it to the public domain. 
There was one problem (at least to me). The 
program was ugly! It had no life to it... no graphics. 

Graphics. That was a dreaded word to me. Hey, I 
iust banged my non programmers brain for several 
days writing code and now I expected myself to add 
graphics to this thing? Maybe I should forget about 
releasing It to the public domain and save myself the 
trouble of having to learn something more. I was al 
ready developing the 'shakes* from not being on the 
phone lines for the last couple of days. I knew 
withdrawal would be setting in soon, but I thought 
about all those other DMP printer owners who would 
probably love me to death for finally making a 
program available that works on their printers. My 
ego kicked In. i was going to do it even If it killed me. 

i started looking at other BASIC programs that 
used graphics and found that there were two W2^s of 
adding graphics to a program. You could write code 
(ugh!) that added the graphics or you could actually 
draw the graphics and incorporate it into the BASIC 
code. I naturally opted for drawing. 

The next challenge was finding a program that 
could EASILY handle drawing graphics into an exist 
ing file. My answer came in a little known program 
called GRAPHICS 90. Graphics 90 was written by 
Larry Payne of Software Affair (The Orchestra 90 
people) and was to originally be distributed by 
Radio Shack The Shack dragged their feet on get 
ting the ball rolling for Graphics 90 and ttie author 
eventually withdrew the submission and allowed the 
program to be distributed through some' Qf ttie large 
Information networks such as DELPHI. This, unfor 
tunatety, resulted in a beautiful program being com 
pletely overlooked by the majority of TRS 80 
owners. If you have ever played ttie game 13 
GHOSTS, the graphic and animation sequences 
were written completely witti Graphics 90. 

Graq^hics 90 has ttie feature of allowing you to 
take an existing ASCII file and adding graphics to it 
This is perfect for adding graphics to a BASIC file 
saved In ASCII. The one minor hurdle was ttiat 
Graphics 90 will ONLY work under TRSDOS 1.3., 
and i>ABEUBAS was written under LOOS. This was 
easily recttfied by ttie use of Super Uttilty 4/4P. Once 
the file was tt-ansfered to a TRSDOS 1.3 format disk, 
I was ready to add my graphics. After a couple of 
hours of 'learning'' how to use Graphics 90 while ad 
ding my graphics to ttie program, I ended up wtth 
what I ttiought was a pretty sharp looking program. I 
dumped the graphics to my printer for reference and 
away i went, i should note here that Graphics 90 will 
ONLY dump to a DMP series printer. No other 
printers are supported (He! He!). 

i decided that ttiis program was a far cry from the 
original LABELTBAS so a new name was in order. 



The program was ttius dubbed LABEL200/BAS In 
honor of ttie printer for which tt was originally wrtt 
ten. I released It Into ttie public domain and many 
ttiank you's were bestowed upon me from various 
BBS systems. There was RNALLY a label program 
exclusively for ttie DMP printers. 

This worked Just fine for me except (ttiere's that 
dreaded word again) ttiat I was becoming more and 
more involved wtth ttie Model 4's nattve mode and tt 
was kind of a pain to have to re boot under LDOS 
every time I wanted to make some labels. So I ac 
cepted ttie personal challenge of converting 
LABEL200/BA$ to run on ttie Model A. This took 
several weeks of searching for attemattves to ttie 
Model ill code. TWo great sources of Informatton 
ttiat I used were 'Learning TRS 80 Model 4/4P 
BASIC by David A. Uen and 'BASIC Program Con 
versions' by The EdKors of Computer Skill Builders. 

After hacking around and once again using 
Graphics 90, 1 came up wtth a working Model 4 ver 
sion of LABEL200/BAS and was qutte proud of 
myself. I showed ttie program to Lance who was 
looking for a vehicle to demonstt-ate ttie powerful 
abiiittes of his PEEKIng and POKEIng routtnes in 
Model 4 BASIC and he immediately asked me if he 
could 'play wtth LABEL200 a btt. Now 'play* is a 
very stt-ange word where Lance is concemed. When 
he 'plays' wtth something you better resolve yourself 
to seeing a whole new generation of the program 
you started wtth. LABEL200 was Indeed crude. There 
were several features i would have liked to add to tt 
but couldn't due to lack of programming knowledge. 
I discussed ttiese enhancements wtth Lance and he 
Just looked at me wtth ttiis 'ALP like grin and said 
'No Problem', i should have known. 

So what you have before you Itteraliy took years 
to create, tt is a far cry from ttie original LABEL/BAS 
found many years ago. This new version gives you 
ttie ability to create and edtt your label. The free 
form entry ability means ttiat you are not limtted to 
ttie one menu for your heading choices (I used to 
keep anout 3 different version of ttie older program 
for ail of ttie different headings I would use). The win 
dow abilities are qutte staggering where ttie Model 4 
BASIC Is concerned. And to make the program 
more universally accepted, you can use tt wtth an 
EPSON printer as well (even ttiough ttie defautt 
remains ttie DMP 200). 

So, kick back, enjoy, and most of all, LEARN from 
ttiis program. There are some features ttiat have 
never been seen before. You may wish to one day In 
corporate some of ttie "tticks' ttiat are used Into your 
own programs, or maybe show us a few "tricks* of 
your own. 

I have learned a lot from LABEL204/BAS. I hope 
you will too. 
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LABEL204/BAS 



10 GOTO 1000 

20 DATA 33.0.0,22S,209,1SJ,0,0,54.0,237, 

176.201 

30 DATA 33,0,0,17,0,i,1,§,©,237,176,201 

40 DATA OPERATING SYSTEM.UTILmES.BIJSIN 

ESS,COMMUNICATIONS,WORD PROCESSING,? 

UBUC DOMAIN, ENTERTAINMENT,DATA BASE,E 

DUCATION,HOUSEHOLD 

45 DATA TRS 80 UNK,TRS 80 MODEL 4,TRS 80 

MODEL l/lll,HIQH RESOLUTION. CP/M,THE RLE C 

ABINET.ARCADE GAMES.THE ARRANGER.TYPE 

YOUR OWN,REBOOT DOS 

50 DATA SELF BOOTING.TRSDOS 1.3.,TRSDOS 

6.2.X.,LS DOS «.a,LDOS 5.1.X.,NEWDOS/80,MO 

DEL I FORMAT 

55 DATA DOSPLUS 3.5.,DOSPLUS 4,MULTIDOS 

1.7.,MULTIDOS 80/64,MONTE2UMA CP/M,CP/M 

PLUS3.0.,DATADISK 

60 DATA 35 Trk SS,40 Trk SS,40 Trk DS,80 

Trk DS,Self Booting Format 

70 DATA PRINT LABEL,EDIT LABEL,AUGN LABE 

L,SELECT PRINTER.REBOOT DOS 

75 ' DMP & Epson printer codat 

80 DATA 27,14,27,15,27,19,27,20,27,23,27,31 

85 DATA 27,14,27,20,27,64,27,15,27,15,27,69 

90 DATA DMP 200,EPSON FX 80 

95 ' poke values for LDIR routine 

100 POKE ML1 4 1,L:POKE ML1 + 2,H:POKE 

ML1 +7.C:POKE ML1 +8,B:POKE ML1 +10,CH 

110 CALL ML1:RETURN 

195 ' Poke values for LDiR routine to display 

196 ' text and move screens back and forth 
200 B = 0:C = PEEK(VARPTR(A$)):L = PEEK 
(VARPTR(A$) + 1):H = PEEK(VARFTR(A$) + 2) 
210 POKE ML2-f 1,L:POKE ML2 + 2,H:POKE ML2 
+ 4,E:POKE ML2 + 5,D:POKE ML2 + 7,C:POKE 
ML2 + 8,B 

220 CALL ML2:RETURN 

295 ' INICEYS subroutine 

300 PRINT@FC,STRING$(MC,46);: PRINT@FC, 

";: POKE &HB97,32:A$ = '":CC = 0:CL=FC 

310 1$ = INKEY$:IF 1$ = " THEN 310 

320 IF 1$ = CHR$(13) OR 1$ = CHR$(129) T^-IEN 

POKE &HB97,0:RETURN 

330 IF 1$ = CHR$(S) AND CL = FC THEN 31 

331 IF 1$ = CHR$(9) OR 1$ = CHR$(10) OR 
l$ = CHR$(11)1>IEN310 

340 IF It = CHRI(E) THEN PBir4T@CL,ED$;: 

CL = CL-1:CC = CC 1:A$ = LEFT$(A$,CC): 

GOTO 310 

350IFMC = CCTHEN310 

360 PRINT@CL,I$;:A$ = A$ + l$:CL = CL + 1 : 

CC = CC + 1:GOTO310 

400 PL(1) = 260 + INT((41-LEN(LB$(1)))/2): 

PL(2) = 340 + INT((41 -LEN(LB$(2)))/2): 

PL(3) =415:PL(4) = 420 + INT((41-LEN(LB$(4)))/2): 

PM5) = 458: PL(6) = 500 + INT((41 -LEN(LB$(6)))/2): 

RETURN 



495 ' Routine to move pointer 

500 PP2 = PP-\+ LEN(A$):PO = P1:PRINT@P1, 

PT$;:PRINT@PP1.A$::PRINT@PP2.X$(P2): 

510 1$ = INKEY$:IF 1$ = '" THEN 510 ELSE IF 1$ = 

CHR$(194) THEN POKE &H7C.PEEK(&H7C) 

AND 239 

515 IFI$ = CHR$(129) AND S = 1 THEN 610 

617 IF 1$ = CHR$(13) OR 1$ = CHR$(129) THEN 

FL = 0:S = 0:RETURN 

i20 IF 1$ = CHR$(10) THEN PRINT® PI. ER$;: PI = 

P1+80:P2 = P2 + 1:IFP1 = CL1THENP1=PO + 

NC:C0 - 2:IF ¥L THEN P2 = 1 :GOTO 590 

630 IF 1$ = CHR$(1 0) AND PI = CL2 THEN 

P1=P0:C0 = 1:P2 = 1 

640 IF 1$ = CHR$(11) THEN PRINT@P1.ER$;: 

PI = PI 80:P2 = P2-1:IF PI = PO 80 THEN 

PI = CL2-80:CO = 2:P2 = SI 

550 IF l$ = CHR$(11) AND PI =PO + NC-80 

THENP1=CL1-80:CO = 1 

560 IF FL THEN 590 ELSE IF 1$ = CHR$(9) THEN 

PRINT@P1,ER$;:IF CO = 1 THEN PI = PI + NC: 

CO = 2:P2 = P2 + SI/2 ELSE IF CO = 2 THEN 

PI =P1-NC:CO = 1:P2 = P2-SI/2 

570 IF t$ = CHR$(8) THEN PRINT@P1,ER$;:IF CO 

= 1 THEN PI = PI + NC.CO = 2:P2 = P2 -I- SI/2 ELS 

EIFCO = 2THENP1=P1-NC:CO = 1:P2 = P2Sl/2 

590 PRINTCa)P1,PT$;:PRINT@PP2,ER2$;: 

PRINT@PP2,X$(P2);:GOTO 610 

895 DouUne to copy & switch screens 

900 D = &HF8:E = 0: ' Choose visual screen 

910 B = 7:C = &H80:GOTO 210: counter Is 1920 

995 ' Program begins here 

1000 DERNT A C,X:CLEAR,&HBFFF:OPT!ON BAS 

E 1:PD = 2:PDF = 1:DIM B$(20),C$(14),D$(6),E$(5) 

,X$(20),LB$(7),PL(6),LE(6),PRT$(PD,6),PRT(PD) 

1002 PT$ = CHR$(143) + CHR$(244) + CHR$(245) 

+ CHR$(246):ER$ = STRING$(4,32): 

ER1 $ = STRING$(20,32):ER2$ = STRING$(45,32): 

ED$ = CHR$(8) + CHR$(46) + CHR$(24) 

1005 POKE &H7C,PEEK(&H7C) OR 16:POKE 

&H78,PEEK(&H78) AND 254:OUT &H84,PEEK 

(&H78): POKE &HB94,PEEK(8iHB94) OR 8: 

POKE &HB97,0 

1010 ML1 =&HFFF0:FOR X = TO 13:READ A 

POKEML1+X,A:NEXT 

lit 5 'Poke LDIR routine for text Into Ff^OH 

11120 ML2 = &HFFE0:FOR X = TO 11:READ A: 

POKEML2 4)C,A:MEXT 

1095 ' Erase screen 1 and set up front screen 

11OOH = &HC0:L = 0:B = 7:C = 8iHFF:CH = 32: 

GOSUB 100 

1110 D = &HC2:E = &HEF:A$ = 'L ABEL 2 4': 

GOSUB 200 

1120 D = &HC3:E = &H84:A$ = 'A fancy disk label 

program for Model 4': GOSUB 200 

1140 LO = &HC292:POKE LO,151: 

POKELO + 41,171:H=:&HC2:L = &H93:B = 0: 

C = 39:CH = 131:GOSUB100 

1150 FOR X = 1 TO 4:P0KE LO + X*80,149: 

POKE LO + X*80 + 41,1 70:NEXT 

1160 LO = &HC422:POKE LO,141: 

POKE LO + 41,142:H = &HC4:L = &H23:B = 0: 
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C = 39;CH = 140:GOSUB 1 00 

1180 H = &HC0:L = 0:GO$UB 900 

1190H = &HCO;L = 0;B = 7;C = &HFF;CH = 32; 

GOSUB 100 

1195 ' Create screen 1 at COOOH 

1200 LO = &HC000:POKE L0,151: 

POKE LO + 79.1 71 :H = &HC0:L = 1:B = 0:C = 77: 

CH = 131:GOSUB100 

1210 FOR X = 1 TO 3:P0KE LO + X*80.149: 

POKE LO + X*80-h79.170:NEXT 

1220 POKE LO + X*80,141: 

POKE LO + X*80 + 79.142: H = &HC1:L = &H41: 

B = 0:C = 77:CH = 140:GO$UB 100 

1 230 D = &HCO:E = &H52:A$ = TRSTImes 

Presents: » + PT$:GOSUB 200:E = &H70: 

A$ = "LABEL 20 4':G0SUB 200:E = &H87: 

A$ = "Ortglna! author unknown": GOSUB 200 

1 240 E = &HAD:A$ = ■Modifications and transia 

tlon to Model 4 by Tim SewelP: GOSUB 200: 

D = &HC1 :E = &H0:A$ = 'Machine code support 

routines by Lance Wolstrup": GOSUB 200 

1250 LO = &HC1E5:POKE LO,151: 

POKE LO + 69,171:H = &HC1:L = &HE6:B = 0: 

C = 67:CH = 131:G0SUB 100 

1260 FOR X = 1 TO10:POKELO4X*80,149: 

POKE LO + X*80 + 34,1 70:POKELO + X*80 + 

35,149:POKE LO + X*80 + 69,1 70: NEXT: POKE 

LO + 80*X,141:POKE LO + X»80 + 69,142: 

H = &HC5:L = &H56:B = 0:C = 67:CH = 140: 

GOSUB 100 

1 270 LO = &HC23E + 65536! 

1280 FOR X = TO 9:READ B$(X + 1): 

A$ = B$(X+ 1):D = INT((LO + X*80)/256): 

E = LO + X*80-(D*256):GOSUB 200:NEXT 

1 290 FOR X = TO 9:READ B$(X + 11): 

A$ = B$(X + 11):D = INT((LO + X*80 + 35)/256): 

E = LO + X*80 + 35 (D*256):GOSUB 200:NEXT 

1 300 H = &HC6:L = &HE0:B = 0:C = 79:GOSUB 

1 00:D = &HC7:E = &H42:A$ = "Use Arrow keys to 

select then press < ENTER > ^GOSUB 200 

1395 ' Copy screens for window effect 

1 400 H = &HCO:L = 0:D = &HC7:E = &H80: 

GOSUB 910: ' Copy to screen 1 to screen 2 

1410 LO = &HC82E + 65536!:POKE LO,151: 

POKE LO + 52,1 71 :H = &HC8:L = &H2F:B = 0: 

C = 60:CH = 131:GOSUB100 

1420 A$ = CHR$(149) + STRING$(51,32) + 

CHR$(170): F0RX = 1 TO 4: 

D = INT((LO + X*80)/256):E = LO + X*80-(D*256): 

GOSUB 200:NEXT 

1430 LO = &HC9BE:POKE LO,141: 

POKE LO + 62,142:H = &HC9:L = &HBF:B = 0: 

C = 50:CH = 140:GOSUB 100 

1440 LO = &HCAA9:POKE LO,151: 

POKE LO + 61,1 71 :H = &HCA:L = &HAA:B = 0: 

C = 59:CH = 131:GOSUB100:H = &HC7:L = &H80: 

D = &HCF:E = 0:GOSUB 910: ' Copy 2 to 3 

1450 D = &HCA:E = 8iHF9:A$ = CHR$(149) + 

STRING$(60,32) + CHR$(170):GOSUB 200 

1460 LO = &HCB49:POKE LO,141: 

POKE LO + 61,142:H = &HCB:L = &H4A:B = 0: 

C = 59:CH = 140:QOSUB100 



1500 LO = &HD229 + 65536I:A$ = CHR$(149) + 

STRING$(29,32) + CHR$(170) + CHR$(149) + 

STRING$(29.32) + CHR$(170):FOR X = 1 TO 7: 

D = INT((LO + X*80)/256):E = LO + X*80-(D*256): 

GOSUB 200:NEXT 

1510 LO = &HD4A9:POKE L0.141: 

POKE LO + 61.142:H = &H[>4:L= &HAA:B = 0: 

C = 69:CH = 140:GOSUB100 

1520 LO = &HD233 + 66536l:FOR X = 1 TO 7: 

READ C$(X):A$ = C$(X):D = INT((LO + X»80)/256): 

E = LO+X*80-(D*256):GOSUB 200:NEXT 

1530 LO = &HD233 + 31 +65536!:FOR X = 1 TO 7: 

READ C$(X + 7): A$ = C$(X + 7): 

D = INT((LO + X*80)/256):E = LO + X*80-(D*256): 

GOSUB 200:NEXT 

1600H = &HCF:L = 0:D = &HD6:E = &H80: 

GOSUB 910: Copy 3 to 4 

1610 LO = &HDA09 + 65636I:POKE LO.ISI: 

POKE + LO + 30,171:H = &HDA:L = &HA:B = 0: 

C = 28:CH = 131:GOSUB100 

1620 A$ = CHR$(149) + STRING$(29,32) + 

CHR$(170):FORX = 1TO5: 

D = INT((LO + X*80)/256):E = LO + X ^0-(D*256): 

GOSUB 200:NEXT 

1630LO = &HDBE9 + 65536!:POKE LO,141: 

POKE LO + 30,142:H = &HDB:L = &HEA:B = 0: 

C = 28:CH = 140:GOSUB 100 

1640 LO = &HDA09 + 9 + 65536!:FOR X = 1 TO 5: 

READ D$(X):A$ = D$(X):D = INT((LO + X*80)/256): 

E = LO + X*80-(D*256):GOSUB 200:NEXT 

1 700 H = &HD6:L = &H80:D = 8iHDE:E = 0: 

GOSUB 910: ' Copy 4 to 5 

1710LO = &HE126 + 65536!:POKELO,151: 

POKE LO + 66,1 71 :H = &HE1 :L = &H27:B = 0: 

C = 64:CH = 131:GOSUB 100 

1 720 A$ = CHR$(149) + STRING$(65,32) + 

CHR$(170):D = INT((LO + 80)/256): 

E = LO + 80-(D*256):GOSUB 200 

1730 LO = &HE1C6 + 65636!:POKE LO,141: 

POKE LO + 66,142:H = &HE1:L = &HC7:B = 0: 

C = 64:CH = 140:GOSUB 100 

1 740 A$ = 'Additional Information: • + STRING 

$(38,46):LO = &HE128 + 65536!:D = INT((LO + 80) 

/256):E = LO + 80-(D*256):GOSUB 200 

1800 H = &HDE:L = 0:D = 8iHE5:E = &H80: 

GOSUB 910: Copy 5 to 6 

1810 LO = &HE850 + 65536!:POKE L0,151: 

POKE LO + 79,1 71 :H = &HE8:L = &H51 :B = 0: 

C = 77:CH = 131:QOSUB100 

1820 A$ = CHR$(149) + STRING$(21 ,32) + 

CHR$(170) + STRING$(56,32) + CHR$(170): 

FOR X = 1 TO 1 0:D = INT((LO + X»80)/256): 

E = LO + X*80-(D*256):QOSUB 200:NEXT 

1830 LO = &HEBC0-l-65536!:POKE LO,141: 

POKE LO + 79,142:H = &HEB:L = &HC1:B = 0: 

C = 77:CH = 140:GOSUB 100 

1840LO = &HE857 + 65536!:FORX = 1 T0 5: 

READ E$(X):A$ = E$(X):D = INT((LO + X*80)/256): 

E = LO + X*80-(D*256):QOSUB 200:NEXT 

1900 FOR X = 1 TO PO:FOR Y= 1 TO 6:READ A: 

READ A1:PRT$(X,Y) = CHR$(A) + CHR$(A1): 

NEXTY.X 
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1010 FOR X = 1 TO PD:READ PN$(X):NEXT 

2000 FOR X = 1 TO 20:X$(X) = B$(X):NEXT 

2005 A$ = -Header Selection: 'iPPI =1525: 

P1=567:P2 = 1:CO = 1:CL1=1367:CL2 = 1402: 

SI = 20:NC = 35 

2©10H = &HC0:L = 0: 

GOSU6 900: 'Switc^i M S€r#«fi 1 

2020 S = 1:G0SUB BiM: ' S®t |i0lfil®r - no F1 

2030 LB(1 ) = P2:LB$C1 ) = B$CF2)*.i£(1 ) = 1 S: 

'LBICI) i< the hBMm 

2040 IF P2 = 20 THEN GOSUB 3600:GOTO 2005 

2100 H = &HC7:L = &H80:GOSUB 900: 'Screeii#2 

2105 PRINT@1858,EB2$;:' G9t rid of prompt 

21 1 IF P2 = 1 9 THEN MC = LE(1 ):raiNT@S0*1 1 

+ 11, Type your own: "::FC = 906: GOSUB 300: 

LB$(1) = A$:IFI$ = CHR$(129)THEN 2000 

2200 IF P2 = 19 THEN P2 = 0:GOTO 2100 

2205 GOSUB 400:PRINT@PL(1),LB$(1); 

2210 LE(2) = 26:MC = LE(2): 

PRINT@80*11 +11,«Dlsk Name: "; 

2220 FC := i§2:GOSUB 300:LB$(2) = A$: 

IF 1$ = CHB$(129) THEN 2000 

2230 GOSUB 4m 

2300 H = &HCF:L = 0: GOSUB 900: ' Screeii#3 

2310 FOR X = 1 TO 14:X$(X) = C$(X):NEXT 

2320 FOR X = 1 TO 2:PRINT@PL(X),LB$(X);: 

NEXT:LE(3) = 14 

2330 A$ = 'OperaHng System: '':PP1 = 1606: 

PI = 891 :P2 = 1 :C0 = 1 :CL1 = 1451 :CL2 = 1482: 

SI = 14:NC = 31:GOSUB 500 

2340 IF 1$ = CHR$(129) THEN 2100 

ELSELB$(3) = C$(P2) 

2400 H = &HD6:L = &H80:GOSUB 900:'Scr8an#4 

241 FOR X = 1 TO 5:X$(X) = D$(X): 

NEXT:PL(3) = 415 

2420 FOR X = 1 TO 3:PRINT@PL(X),LB$(X);: 

NEXr:LE(4) = 19 

2430 A$ = 'Disk Format ^PPI =1605: 

P1=987:P2 = 1:CO = 1:CL1=1387:CL2 = CL1: 

SI = 5:NC = 0:FL = 1:GOSUB500 

2440 IF 1$ = CHR$(128) THEN 2300 

ELSE LB$(4) = D$(P2):GOSUB 400 

2450 LB$(5) = DATE$:PL(5) = 458:LE(5) = 8 

2500 H = &HDE:L= 0:GOSUB 900: ' Screen#5 

2505 PRINT@1858,ER2$;: ' Get rid of prompt 

2510 FOR X = 1 TO 5:PRINT@PL(X),LB$(X);:NEXT 

2520 LE(6) = 38:MC = LE(6):FC = 912:GOSUB 300: 

LB$(6) = A$:IF 1$ = CHR$(1 29) THEN 2400 

2530 GOSUB 400 

2600 H = &HE5:L = 8iH80:GOSUB 9OO:'Ser00n#i 

2610 FOR X = 1 TO 5:X$(X) = E$(X):NEXT 

2620 FOR X = 1 TO 6:PRINT@PL(X),LB$(X);:NEXT 

2630 A$ = "Make your selection: *:PP1 =1685: 

PI = 802:P2 = 1:CO = 1:CL1 = 1202:CL2'=:= CL1: 

SI = 6:NC = 0:FL = 1:GOSUB S0@ 

2640 IF 1$ = CHR$(129) THEI^ 2500 

3000 ON P2 GOTO 30t0J20O,33OO,34OO,35OO 

301 0PRIMT@83CI,*Defaui printer = ";PN$(PDF);: 

MC = 3:FC-- 1i22:PRINT@990,'*How many labels 

would yoy like: ";:GOSUB 300: 

IF 1$ = CHR$(129) THEN 2600 ELSE LN = VAL(A$): 

IF LN THEN 3010 



3020 MC = 5:FC = 1182: 

PRINT@1 153, Type start Ing serial number •;: 

PRINT@1233/or press < ENTER > for none';: 

GOSUB 300 

3030 IF 1$ = CHR$(129) THEN 2600 ELSE IF A$ = 

CHR$(13) THEN LB$(7) = " ELSE LB$(7) = A$: 

LB = VAL(LB$(7)) 

3035 'LPRINT routine 

3IH©FORX = 1TOLN 

3II50FORY=^1TO2 

3060 LPRINT TAB(2);PBT$(roF,4);PRTS(PDF.1); 

PRT$(POF,6):STRING$(INT(((27-LEN(LB$(Y)))/2)). 

32);LB$(Y);:NEXT 

3070 LPRINT TAB(1):PRT$(PDF.2):LB$(3); 

STRING$(INT(((48-LEN(LB$(3) + LB$(4) + 

LB$(5)))/2)),32);LB$(4);STRING$(INT(((58-LEN 

(LB$(3) + LB|(4) + LB$(5)))/2)),32);LBt(5) 

3080 LPRINT TAB(1);STRING$(INT(((54-LEN 

(LB$(6))y2)),32);LB$(6) 

3082 IF LB$(7) = "' THEN LPRINT • ELSE LB$(7) 

= "Serial number ' + STR$(LB): LPRINT TAB(1 ); 

STRING$(INT(((54-LEN(LB$(7)))/2)),32);LB$(7): 

LB = LB + 1 

3085 LPRINT PRT$(PDF,3):NEXT 

3090 GOTO 2600 

3200 LO = 832:FOR X = 1 TO 6: 

PRINT@LO + X»80,LB$(X);:NEXT 

3205 FOR X = 1 TO 6:X$(X) = LB$(X): 

NEXT:PRINT@1 685,STRING$(74,32); 

3210 A$ = 'EdH neld: ■:PP1 = 1685:P1 = 905:P2 = 1 : 

CO = 1:CL1 = 1385:CL2 = CL1:SI = 6:NC = 0:FL= 1: 

GOSUB 500 

3220 IF It = CHR$(129) THEN 2600 

3230 PRINT@1685,STRING$(75,32);: 

PRINT@1 685, "Change to: ";:MC = LE(P2): 

FC = 1696:GOSUB 300:IF 1$ = CHR$(129) 

THEN 2600 ELSE LB$(P2) = A$: 

PRINT@823 + P2*80,STRING$(56,32);: 

GOSUB 400: GOTO 3200 

3300 PRINT@990,"Press < ENTER > to fill label 

with asterisks '; 

3310 l$ = INKEY$:IFI$ = CHR$(129)THEN 2600 

ELSE IF 1$ = CHR$(13) THEN 3320 ELSE 3310 

3320 FOR X = 1 TO 6:LPRINTTAB(1);PRT$(1,3); 

STRING$(34,"*"):NEXT:GOTO 2600 

3400 LO = 834:FOR X = 1 TO PD: 

PRINT@LO + X*80,PN$(X);:NEXT 

3405 FOR X = 1 TO PD:X$(X) = PN$(X):NEXT: 

PRINT@1685,STRING$(74,32); 

341® AS = 'Select printer •:PP1 = 1685:P1 = 905: 

P2 = 1:CO = 1:CL1 = 825 + 80*(PD + 1):CL2 = CL1: 

SI = PD:NC = 0:FL = 1:GOSUB500 

3420 IF 11 = CHR$C129) THEN 2600 

ELSE PDF =P2 

3430 GOTO 2600 

3500 GOSUB 3600: GOTO 2600 

3600 PRINT@1685."REBOOT DOS Please press 

Y to confirm"; 

3610 1$ = INKEY$:IF 1$ = "' THEN 3610 ELSE IF 

1$ = "V OR 1$ = y THEN A = &H1 BF2:CALL A 

ELSE RETURN 
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Model 4 (model III mode) 

Hidden 

Memory 

Fun 

by Donald G. Shelton 



The article showing how to page back and forth 
from the 64 x 16 to 80 x 24 modes on a Model 4 
operating In Model III mode raised some Interesting 
programming possibilities (TRSTImes July 1988, 
page 26). One that might not be thought of right 
away Is that the second page of video is protected 
memory, just waiting for you to use It! The best ap 
plication I thought of was simulating the COMMON 
statement which Isnl available in Model ill basic. 
LDOS Basic has a function for saving ail variables 
when you run a new program, but your choice Is ail 
or nothing, and this may cause problems when you 
only want to transfer a few key variables (such a the 
name of the data file being worked on). 

The COMMON statement (which IS available in 
Model 4 BASIC) protects enough memory to keep 
variables you specify when you call one program 
from another. This is very handy In memory limited 
situations, because It allows easy overlaying from 
disk of different program modules, yet keeps the varl 
ables you need as If you were running the program 
without overlays. 

Without the COMMON statement you can still 
preserve memory and manually protect variables in 
It. but when working from BASIC this requires Imbed 
ding some machine language routines and calling 
ttiem, which works well, but isnl very convenient 
(see Lewis Rosenfeider's 'Basic Faster & Better"). 

This new method involves only calling a sub 
routine, printing the variable at a preset location, and 
making it no longer than some preset length (the 
receiving program needs to know where to look for 
the protected variable, and how long it is), all without 
leaving BASIC. 

It Is based on the fact that Model III video Is 
memory mapped. This allows a technique called 
string 'pointing". Normal^ strings are stored In the 
memory stack away from video memory, but you 
can point a string to a video memory location using 
the VARi=TR statement This means that you can 
make a string from bytes on the video display. What 
we are going to do is print a variable at a location on 
page 2 of video, run a new program, 'point* a string 




to that video location ("pointing" 
will work on either page of 
video) and recover the variable. 

Things to know before we 
start: 1) the second program 
must know where the print® 
locations are for each variable. 
2) The second program must 
know the maximum length the 
variable might be. 3) the second program must 
recover the variables before It Initializes any vari 
ables of Its own, and before It does any printing to 
the second page of video. 

You could decide on a standard length for strings 
(say 20 bytes), and simply locate them at positions 
0,20,40,60, etc. If you don't know how many vari 
ables there will be, or you want the subroutine 
flexible among different programs, make the last vari 
able 'END' and test for It, Just like you would In a 
data statement You could change this routine for ac 
cepting Integers and other numbers, or you could 
keep the routine flexible by converting numbers to 
strings before you store them, and back to numbers 
in the new program using STR$() and VAL(). 

The test programs demonstrating this technique 
are X/BAS and Y/BAS. X/BAS is extremely simple. 
All it does is accept a variable that you type in. Then 
In line 40 the OUT 132,128 statement puts the com 
puter in a mode where it Is writing to the second 
page of video, but still looking at the first page. This 
makes the process seem invisible to the user. It then 
prints the variable a! position on the second page 
of video. The computer tells you what It is doing at 
each step, and delays a few seconds (otherwise the 
whole thing would be over in less than a second). 
Then the program runs program Y/BAS. All variables 
are normally lost at this point 

in program Y/BAS A1% Is set to 20, and is the 
maximum length of the variable. PO% Is set to 0, and 
is the position of the variable on the second video 
page. The OUT 132,128 once again sets the com 
puter to using the second page of video while the 
user only sees the first Then It uses the 'pointer* 
routine to create a variable AN$ which Is actually 
stored on the second video page. At this point the 
program sets A$ equal to AN$. AN$ Is not a 'per 
manenf string. It points to the first 20 bytes of video 
memory, and as soon as we switch back to the first 
page of video, the contents of AN$ will change with 
it! That Is why the contents of AN$ must immeadiatety 
be transferred to a 'normal' string, or you will lose It 
Then an OUT 132,0 returns the screen to normal 
Model III mode, and A$ Is printed for all to see. 

A$ Is now 20 bytes long, even If It was less when It 
started. This Is similar to using fields with random ac 
cess files; we had to determine a length before we 
started. At this point you may need to strip the string 
of its trailing blanks. I include a function for doing 
that (again thanks to Rosenfeider). 

This is one of the cleanest memory banking 
tricks' I've ever seen for BASIC, and there are cer 
talnly other ways to use this valuable memory. By the 
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way. If you are running a program In the 80 x 24 
mode, you can still use this. All you have to do Is 
print the variables to locations on the second video 
page, switch to ttie first video page, run the second 
program, recover you variables from the second 
video page, and go on your wjy. Of course, with 
this method the prosss^ li to longsr Invisible to the 
user, but that may not be \mpm 



X/BAS 



WBAS ENTERS THE VARIABLE & STORES 

IT ON SECOND VIDEO PAGE 

(C) 1988 D.G. SHELTON LEXINGTON, KY 

10 CLS: LINE INPLTPENTER THE STRING ",A% 

20A1% = LEN(A$) 

30 PRINT: PRINTI AM NOW PUTTING IT IN 
EXTRA VIDEO MEMORY" 

35 FOR D = 1 TO 2000: NEXT D 

40 OUT 132,128: CLS 

50 PO% = 0: PRINT@PO%,A$ 

60 OUT 132,0: PRINT:PRINT 'DONE' 

70 PRINT 'NOW I WILL RUN ANOTHER 
PROGRAM": FOR D = 1 TO 2000: NEXT D 



Y/BAS 



' RECOVERS VARIABLE FROM SECOND VIDEO 
PAGE (C) 1988 D.G. SHELTON 

5 CLEAR 400 

10 CLS: PRINT"! AM NOW RUNNING A NEW 
PROGRAM. I WILL ACCESS VIDEO MEMORY": 
PRINPFOR THE VARIABLE":FOR D = 1 TO 2000: 
NEXTD 

15 DEFFNSS$(AN$) = LEFT$(AN$ 4 ' \ INSTR 
<AN$ + " ",• ')-1) 'FUNCTION FOR STRIPRNG 
TRAIUNG BLANKS 

20A1% = 20:PO%=0 

30 OUT 132,128: GOSUB $0: A$ = AN$: 
OUT 132,0 



35A$ = FN$S$(A$) 

40 PRINT: PRINT: PRINTTHE VARIABLE IS \A\ 

50 END 

60 AN$ = • ': POKE VARPTR(AN$), A1 %: POKE 
VARPTR(AN$) + 2.INT(PO%^56) + 60: POKE 
VARPTR(AN$) + 1.PO%-INT(PO%/256)*256: 
RETURN 



PUBLIC DOMAIN PROGRAMS 

NEW PROGRAMS 

from tho Valloy TRS-80 Haetorf Group 

public doniftin library 

for Model I, III & 4 



Sand SASE for annotated iitt 
Sample disk $5.00 (US) 

VTHG 

BOX 9747 
N. HOLLYWOOD. CA. 91609 



MORE GOODIES 
FOR YOUR TRS-80 



Get the latest Issue of 
TRSUNK 

TRSUNK is the new disk based magazine 

dedicated to providing continuing information for 

the TRS 80. A new issue is published monthly, 

featuring i\ibiic Domain programs, 'Shareware*, 

arHcies, hints & tips, 

nationwide ads, letters, and more. 

TRSUNK can be obtained from your local TRS 80 

BBS, or download It directly from: 

8/n/1 #4 

215 848-5728 

(Ptilladelphla, PA.) 
Sysop: Litis GarelaBarrlo 

Believe It or not 
TRSUNK Is FREE 
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xT.CAD: Computer Aided Drafting for the TRS 80 



A Review by Eric Bagal 



This review took a lot longer to write than I'd ex 
pected. Ordinarily, one has some familiarity with the 
category of any program to be reviewed. You ex 
pect to understand the various microcomputer 
metaphors of "spreadsheet,* •word processor,* 
•general ledger," or what have you. As a last resort 
you can always compare It to another program that 
does the same Kind of thing. 

XT. CAD is different. 

In the TRS 80 world, xT.CAD stands alone. It Is 
not only without peer, It Is without competition of any 
kind. It also Isn't like anything I've used before. That 
meant I had nothing to compare It to. My under 
standing depended on building myself a metaphor 
for Computer Aided Drafting (CAD). 

The obvious place to start, I thought, was with a 
more familiar metaphor: high resolution drawing 
programs. In drawing programs what you see Is, 
well, what you see. That Is, what you produce on the 
screen Is reproduced, with little or no distortion, on 
paper. You get 640 by 240 pixels (less than 100 
dpi), on the screen or on paper. But In xT.CAD, 
what you see on the screen is a function of the cur 
rent level of magnification (among ten levels), and 
the result of an unlimited number of possible over 
lays. What you get on paper Is a result of xT.CAD's 
Internal accuracy of 1/200 of an Inch, and depends 
how big your printer is. If your printer Is a plotter 
then all your diagonal lines will loose their Jagged 
edges and become absolutely straight lines. 

But please don1 mistake xT.CAD for a jazzed up 
drawing program. The comparison makes for great 
■gee whiz" numbers, but It Is not really very useful. 
xT.CAD operates In a basically different manner than 
do drawing programs. To begin with, In xTCAD 
you doni really draw on the screen at ail, you 
produce a series of notations that are represented 
on afield of from 8 by 10 Inches to 24 by 36 Inches 
the screen acts as a variable sized window on this 
field. Every drawing In >a.CAD begins In the top left 
corner of the screen, and every move from that posi 
tlon Is recorded along with every line drawn or 
erased until the drawing Is ended. At any time 
during construction the notation and the screen can 
be "played back" line by line (or automatically), to 
find the point in the notation at which an item was 
constructed, and can then be edited. The complete 
notation history is saved as an ASCII file. When that 
file Is loaded the result of the history Is redrawn on 
the screen. 



The reason for this programming approach has to 
do with CAD'S use and history versus microcom 
puter drawing's use and history. Although drawing 
programs will sketch or paint on the screen much as 
a artist would on canvas or paper, they are all a 
direct descendant of Etch a Sketch simulations. 
With the addition of block manipulation, variable 
brush size, fill patterns, zoom, mirror, complement, 
and reverse, along with access to hardware such as 
mice and digitizers, drawing programs have become 
a useful addition to the artist's toolbox. Even though 
most artists begin by making rough shapes, drawing 
on paper or screen becomes a non linear process 
after theyVe done the first sketching. The artist 
moves from place to place, adding, subtracting, 
refining, etc., pixel by pixel. A finished drawing may 
light more than 90% of the screen's pixels, especially 
if the background is white. 

For most of its history, CAD has been limited to 
minicomputers and high end workstations, n quickly 
became accepted that, so long as data files were in 
terchangeable, the screen resolution was not sig 
nificanl At the lowest levels of screen resolution 
CAD is impracticai because the screen is too small a 
window on the drawing; other than that, there is no 
reason why you couldn't design a CAD program for 
a IVIodel 1 or a Model 100. xT.CAD became avail 
able for the TRS 80 in 1984, shortly after CAD ap 
peared for the IBM PC. 

Drafting is a linear process: you know exactly 
what you want before you begin, and you often plan 
the order and progression of your work In some 
detail. CAD programs are used to represent physi 
cai objects In a manner precise enough so that they 
may be constructed from the Information given in the 
drawing. All lines are drawn as if they were mathe 
matical abstractions, having no thickness; the con 
ventlons of drafting require only a variety of solid, 
dotted, dashed, and dot dashed lines. There is no 
such thing as an isolated point except to mark the 
beginning or end of a line segment; there are only 
lines. 

Because all these notations must be held In 
memory, there is a definite limit to how much detail 
can be represented in one file. ya.CAD keeps track 
by counting each llne/arc/clrcle as an Item. A status 
line Is always available to show how many Items are 
free out of the 1000 Items allotted per file. So what 
happens when you run out of available Items? You 
use screen number two. Then you can switch be 
tween screens and even merge them. Whaf s more, 
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you can use as many screensfui as naaded. with ait 
drawings kept in register. This means you can 
produce the most complex of drawings with xT.CAD. 
These overlays can not oniy be shown simultaneous 
ty on the screen, they can also be plotted (or 
printed) over each other until the drawing is com 



The valut and $f>eed of >fr.CAD is increased 
with every drafwing vnade, because each Job estab 
llshes more Items In yoyr symbol library. Alter a 
short time yoy find tsal most of your wort( consists of 
using block moves to plug In Item© from yoir own 
library. 

Now that iVe made all these distinctions, I should 
confess that xT.CAD can i^so be used to advantage 
as a drawing program. For example, each overlay 
can be used with a different color printer ribbon to 
produce full color drawings. Also, jH'.CAD's dot 
matrix printer drivers (but not plotter drivers) allow 
you to fill areas with ten degrees of shading. And If 
yoy have an "E" size drawing but oniy an 'A' sized 
plotter, or only an 80 column dot matrix printer, you 
can specify percent of reduction a! print time. 



If youVe ever wanted to do any kind c 
at all but felt you were a total klutz with pencil and 
straight edge, then xT.CAD is for you. If you are an 
artist experienced with drawing programs you will 
find xT.CAD Interesting for the possibilities It allows. 
If you are an engineer, planner, designer, or contrac 
tor of any stripe, then xT.CAD is worth investigating. 
To use xT.CAD you need a Model Hi or 4 and a high 
resolution board. Either Tandy or Mlcrolab's high 
resolution boards will do. (If you Insist, Mlcrodex 
will sell you their IBM PC version, but rest assured 
that It works just as well as the TRS 80 versions, and 
the data files are perfectly compatible.) It Is fun to 
work with, easy to learn, and has many more fea 
tures than IVe mentioned here (like a compl®t@ Bill of 
Materials system, full ASCII labeling with automatic 
duplication, and digitized and coordinate Input) It Is 
also an amazing piece of programming. But if you 
are a draftsman of any degree of ability or ex 
perience In any field, you'll find that xT.CAD will 
meet your most exacting needs. 

xT.CAD was dt¥elop©d by Mlcrodex. Write or 
call them at 
Mlcrodex Corp. 
1212N. Sawtelle 
Tucson, AZ. 85716 
(002) 326-3602 

It Is also available from Mlcrolabs along with 
Model III and A Graphics Solution high resolution 
boards and software. Both companies have large 
selection of high resolution programs, boards, and 
accessories for the TRS 80, and their ads appear In 
each Issue of TRSTImes. 



TRSTimes on DISK #2 



Issue #2 of TRSTImes on DISK is now available. It fea 
tures the following programs from the July, September an 
November 1988 issues: 



STATES/BAS 


M4 


IHSDOS6.2&6.3 


MASTRKEY/CMD 


M3 


LDOS 5.1.3 


MASTRKEY/CMD 


M4 


IKSDOS6.2&6.3 


CHANQOSO/BAS 


M3/4 


ALL 


SCRPATCH/BAS 


M3 


ALL 


MACROKEY/CMD MZ 


NEWDOS/80 


1HSTEXT2/BAS 


M4 


IHSDOS6.2&6.3 


TRSDRAW/BAS 


M4 


TRSDOS 6.2 & 6.3 


WINDOW/BAS 


M4 


IHSDOS6.2&6.3 


LABEL204/BAS 


M4 


iK8DOS6.2&6.3 


X/BAS 


M3/4 


ALL 


Y/BAS 


M3/4 


ALL 


PLOTZ/BAS 


M3 


ALL 



included on this disk will be two assembly language 
programs that are just too long to publish In TRSTImes: 

LABELDMP/CMD is the Model ill parent of 
LABEL204/BAS. Wortcs With the DMP series printer. 

FORMAT4/CMD is a fast Model 4 format utiiify for 
TRSDOS 6.2 & 6.3. Wortcs With 40 track, single sided 
diskettes only. 

TRSTImes on DISK #2 is reasonably priced: 

U.S. & Canada: $5.00 (U.S.) 



Anywhere else: 



$7.00 (U.S.) 

shipped air mail 



Send check or money order to: 

TRSTImes on DISK 

20311 Sherman Way #221 

Canoga Park, CA. 91306 

%3 m^HmiKm 



TRSTImes on DISK #1 
is still available at the above price. 
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Model III 

PLOTZ 



PLOTTING ON THE PRINTER 

by Jim E. King, MSEE, CI 



in 1974 i studied during the (ummer at Cal. State 
Northrldge on plotting on the printer to show stock 
maricet time series data and came up with a Fortran 
version of this routine. This Is just one of many plot 
ting routines. 

The video display routine Is from lines 300 to 350 
with subroutines from 200 to 252. For printout, the 
routine Is from 400 to 460. The two routines are al 
most identical when 80 column screen and paper 
are used. 

Definitions of variables for the algorithm: 

DL Lowest datum = Y(min), line 210 

DH Highest datum = Y(max), line 212 

R Range of the data = DH DL. line 214 

IP The # of the column where the datum Is 
printed, line 220 

12 The # of the column where the zero line is 
printed, line 21 6 

KC Coeflcient used in the calculation of IP 
derived from the # of columns used, = # of 
columns 2. lines 120, 130, 220 

N Number of data, line 110, 320, 420 

Y(l) Data in array Y(i), lines 92, 210 

20 = 'O' zero plotting symbol, line 260 

ZH Heading, lines 92, 320, 420 

ZL The line # in String form iefl justified, line 230 

J Length of line # ■ 1 , line 230 

ZP = •*" curve plotting symbol, line 94. 
Any symbol can be used. 

The routine first finds the largest (DH) and smal 
iest (DL) data, and the Range (R) between them by 
(GOSUB210). 

It then prints DL, the heading, the resolution, and 
DH. 

The resolution of a printer for plotting Is pretty 
poor, so to get the best available i scaled and posi 



tloned the data so that It goes from the leftmost 
column to the rightmost, tab(O) to tab(79). 79 inter 
vals. This Is accomplished in subroutine 220. 

The following triangle diagram assists in under 
standing and setting up the ratio equations for con 
verting the data to plotting positions: 



Data 
DH = 


Y(max) 


Tab(#) Distances set up as ratios: 
79 IP-0 Y(i) - Y(min) 


Y(i) 


DL 


IP 

(1)IP 
=Y(min).( 


79-0 Y(max) - Y(min) 

Range = DH - DL 

Solving for IP: 
= 79*(Y(I)-Y(min))/Range 
) 



Since IP is an Integer number (DERNT i-N) round 
Ing must be Introduced by adding 0.5 to the right 
side of the equation. Equation (1 ) Is implemented 
In line 220, where KC = 79-1. 

Tabs on our computers go from on the left side, 
to 79 on the right for an 80 column page or screen. 
Placing a character in tab(79) forces a linefeed on 
the screen but does not on my printer (Citoh), there 
fore KC must be reduced from 79 to 78 (line 120) for 
video, but not for printout. This Is a slight difference 
between the Video routine and the Printout routine. 

Subroutine line 230 converts the Integer line num 
bers of the data to Strings with no left blank and is 
used In lines 330 and 430. The IF IP > J the plot print 
over the line #s. 

iZ is the place on the plot where the variable goes 
to zero. It can be displayed to assist in getting a feel 
for the centering of the data about zero (line 216). 
Tuming the '0" off is done by setting it = ". 

it is possible for the "0* line to be outside the 
Range, I.e. off the page. A negath/e tab causes an 11 
legal Function error and evetything stops, so the first 
IF in line 340 checks if tZ Is off scale and if it is then 
prints IP at IP. 

Because it is not possible to tab backward, It Is 
necessary to determine whether IP or iZ is smaller, 
and then print the smaller value first. 

A Fortran version that will print 9 variables is avail 
able for a business size SASE to: 

JIM KING 

20784 Medley Street Topanga, CA. 90290 
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PLOTZ/BAS 



CL$:CLEAR555:DEFSTR S-X,Z: 

S = •Demonstration of Plotting on Printer Routine, 

With Zero Une^GOSUB 3:S = 'by Jim E. King, 

Copyright (c)(p) 1974«:GOSUB 3: 

S = "Public Domain; Permission to use If credit to 

the author:GOSUB 3:G0T0 90 'PLOTZ 

3 PRINT TAB(33-LEN(S)/2);S:RETURN' center 

7 IF LEN(Z) THEN FOB L8 = 1 TO LEN(Z): 
K9 = ASCCMID$C2,L9J)):!F m > 96 THEN 
MID$(Z,L9,1) = CHR$(K9"32):NEXT:RETURN 
ELSE NE>CT:RETURN ELSE RETURN 'CAPS 

8 Z = INKEY$:IF Z = " THEN 8 ELSE IF Z = 
CHR$(31) THEN END ELSE GOSUB 7:RETURN 

9 PRINT CHR$(29);STRING$(JU + 1,27); 
CHR$(31);:JU = OrRETURN ' Jump up lines 

30 PRINT ZH.FOR I = TO N:PRINTI,Y(I): 
NEXT:GOT0 99 ' display Data 

80 PRINT ERR'ERROR-Une'ERLGOTO 99 

90 DERNT l-N: M = 166: DIM Y(M): N = M: 
KC = 78: ON ERROR GOTO 80 

92A = .6:B = .11:FORI = 0TON:Y(l) = A + 
SIN(B*I): NEXT:ZH = "Slne Wave:.6 + Sln(.11*l)'' 
'put sine data Into array Y(l) 

94 X = "OPEN Disk Drive Doors':ZP = •*■• 

99 PRINPDIMenslon'M; TAB(40);KC + 2; 
■'<C>olumns <6>4/<4>0 <Z>ero';ZO; 
"Line <D>l8pI^;N;"Da<t>a <P>lot 
< L > Plot?^:QOSUB 8:miNT Z 

1 1 IF Z = -N* ORZ = T* THEN PRINT N;'Unes Of 
Data out or;M;"DIM; (61 lines/page) Change to";: 
INPUT N:N = -(N < - M)*ABS(N):JU = 2: GOSUB 9 

1 20 IF Z = "6" THEN KC = 62: JU = 1 :QOSUB 9 

130 IFZ = "8"THEN KC = 78:JU = 1:QOSUB 9 

140 IF Z = "C" THEN INPUTChange # of 
Columns to";K:KC = K-2 



150 IF Z = "Z" THEN GOSUB 250 ELSE IF Z - W 
THEN 30 ELSE IF Z = "P THEN 3§0 ELSE IF Z = 
"L" THEN 410 

190 GOTO 99 

200 'Plotting Subroiitlnet 

21 DH = -9E9: DL = 9E9: FOR I = TO N: 



IF D > LY({) ' EN DL = Y(l) ' DL = Y(mln) 

212IFDH<Y(I)THENDH = Y(I) 'DH = Y(max) 

214 NEXT: R = DH-DL ' range of data 

216 IZ = -KC*DL/R + .5: RETURN 

' calc "0" by triangle ratio where Y(0) = 

220 IP = KC*(Y(I)-DL)/R + .6:RETURN 
' caic tab(IP) by triangle ratio 

230 ZL = RIGHT$(STR$(I).2):RETURN 
' 2 digit llne# > % 

240 ZL = RIGHT$(STR$(I),3):RETURN 
' 3 digit ilne# > $ 

250 IF ZO = "• THEN ZO = "O" ELSE ZO = "" 

252 JU = 1: GOSUB 9:RETURN' toggle *0' line 

300 Video Riot 

320 CLS:S ==ZH:GOSUB 3:GOSUB 210: 
PRINTDL" Resolution = "iR/CKC + 1 ); 
TAB(KC-8);DH:FOR I = TO N:GOSUB 220 

330 IF l< 100 THEN GOSUB 230:IFIP>2THEN 
PRINT ZL; ELSE ELSE GOSUB 240:IF IP > 3 THEN 
PRINT ZL; 'left Side llne# 

340 IF IZ < OR IZ > KC THEN PRINT TAB(IP);ZP 
ELSE IF IP < IZ THEN PRINT TAB(IP);ZP.TAB(IZ); 
ZO ELSE IF IP = IZ THEN PRINT TAB(IP);ZP ELSE 
PRINT TAB(IZ);ZO;TAB(IP);ZP ' display the points 

350 NEXT: GOTO 99'ZP = RotUng Symbol;ZO = "0" 

400 'LPrint Plot 

410 K= 80:lNPLrrTum on Printer, # Columns 
(80)";K:KC = K-1 

420 GOSUB 210: 

LPRINT DL;" ■;ZH;' Resolution =";R/(KC); 

TAB(KC-8);DH: FOR 1 = TO N: GOSUB 220 

430 IF l< THEN GOSUB 230: IF IP > 2 THEN 

LPRINT ZL; 

ELSE ELSE GOSUB 240: 

IF IP > 3 THEN LPRINT ZL; 'left side Hne# 

440 IF IZ < Q OR IZ > KC THEN LPRINT TAB(IP); 
ZP ELSE IF IP < iZ THEN LPRINT TAB(IP);ZP. 
TAB(IZ);ZO ELSEIRP = IZ THEN LPRINT TAB(IP); 
ZP ELSE LPRINT TAB(IZ);ZO;TAB(IP);ZP 
' print the points 

450 NEXT: KC = 78: GOTO 99 
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This issue's PD Express is going to be a bit short 
due to the write up and code of LABEi^04/BA$ 
found elsewhere in this issue. I just want to alert you 
to a few things that have happened in the last few 
weeks. 

The big news is that THE FILE CABINET HAS A 
NEW ADDRESS. The postal service in it's infinite wis 
dom decided to close down the Post Office where i 
received my mail and build a larger one on the other 
side of San Fernando. Since t moved away from San 
Fernando a couple of months bacic, I decided to 
apply for a P.O. Box closer to where t lived Instead 
of using the new Box number that was being as 
singed to me at the new facility. So, since i was 
going to have to change box numbers anyway it 
might as well be one closer to home. 

So please make note of The File Cabinef s NEW 
address: 

The File Cabinet 

P.O. Box 322 

Van Nuys, Ca. 91408 

Ail mail sent to the old address wlil be forwarded 
to my new one so dont worry. It Just may iake a 
couple of days longer to get to me. 

The other news is that there has been A MAJOR 
UPGRADE TO THE MODEL 4 CATALOG. 

I have added close to 40 new disks to the library 
and have updated several files in the existing library. 
To obtain an updated catalog, send me your 
ORIGINAL catalog dlsk<s) in a mailer with RETURN 
POSTAGE and MAILING U^EL and I will copy the 
new catalog and send It right out to you. 

The Model 1/3 catalog has been delayed. The 
project has become so huge that i am not able to 
meet the September deadline like I promised. I am 
targeting an early December release. For those of 
you who pre paid your Model 1/3 catalog and doni 
want to wait that long, I will be happy to refund your 
deposit Just write me and let me know. 

The Orchestra 90 Music flie catalog WAS finished 
until a couple of days ago when John Davis (thanks 
John) sent me 5 diskettes full of new files to add to 
the library. It wlil be a couple of more weeks before 
the catalog is ready to be shipped while I sort out the 
new files. 



Tim's PD Express 

The File Cabinet update 

by Timothy Sewell 

I NEED YOU HELP! 



The largest problem with putting together the 
Model 1/3 catalog is trying to decide what is Public 
Domain and what Isnl If you have any of the follow 
ing you would be Interested in parting with (for a 
price or diskettes from the catalog) I would be really 
Interested in hearing from you: 

CLOAD Magazine on cassette or disk. I also 
need to know the dates of the first and last issue. 

SOFTSIDE Magazine. Any printed magazine 
before September 1980 or after February 1984. 

Any disk magazine before 9/81 and after issue 
#33. Also any special edition (best of) magazines 
and disks 

80 -NW Magazine. Volume 1 #1 only. 

FAMILY COMPUTING Magazine. Volume 1 #1 
through volume 1 #12 (entire first year). 

80 US magazines on DISK. 

Any toflware company's catalog for TRS 80 
software. 

Any Computronlcs magazine before 1984. 

All Issues of the MISOSYS Quarterly (Originals 
only please!). 

Any journals from the various DOS tyt temt 

available (LDOS, DOSPLUS, etc.). 

If you can help with any of these Items i would 
very much appreciate it Feel free to write to me via 
The RIe Cabinet 

Next issue: i will be starting off the second year of 
TRSTimes with my report on telecommunications 
software available for the Model 4 and the Model 3. 

I will also be reviewing BBS programs in the next 
year for those of you who have the notion of setting 
one up. Also look for my article on the experiences 
of setting up the CP/M version of Printmaster Plus on 
the Model 4. And I promise... more information 
about Model 1/3 software. 

Until then... 

Mftlce Mine TRS 80! 
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ITEMS OF INTEREST 



HARDWARE 



XLR8 BOARDS 
WITH memoiy chjps AND docs 
$200. @i (Just a few 



LNW DOUBLERS 

without 1791 chip for 
LNW & Mode! I. 

$10.00 ea. 



MODEL 1 DOUBLERS 

NEW 

In original box 
NEVER USED 

With binder of docs. RS#26 1143 

$25.00 ea. 



AZTEC 65 WATT 

POWER SUPPLIES 

NEW in easily removable shield case. 
Originally used In Model 4/4P 

until Radio Shack 
substituted them with cheapies. 

$20.00 ea. 



Please add $5.00 shipping & handling 
for each item. 



IE 



:. CA. 92665 
(714) 637 2943 



SOFTWARE 



TRS 80 SOFTWARE for Models 1/3/4/4P/4D 

Many useful programs - Economical prices 
Send $2.00 for listing 

PRACTICAL r>ROGRAMS 

1104 ASPEN DRIVE 
TOMS RIVER, N.J. 08753 



The RAM software Company presents: 

SMALL-C compiler version 3.0 
ontheTRS-80 

A large subset of Kernighan and Ritchie C, with a 

UNIX compatible I/O library. 

Many other libraiy functions are included. 

This Is a true compiler, not a psuedo code generator 

iii<e some others. 

REQUIRES that the purchaser own 

Microsoft's M80 assembler and L80 linker, 

or compatible assembler and linker, 

on a 48K Model I with Newdos/80 version 2.0. 

More than 1 disk driv/e is recommended. 

$20.00 for executable C compiler, 

library object code, 

demo programs source code 

and C manual. 



$20.00 additional for 

source code to compiler & library 

and library building/management utilities 

+ documentation. 



Make Checks/Money orders payable to: 

Bmn Mesander 

1137 E. Brooks SL Apt.4 

Norman, OMahoma. 73071 

Sorry, no COD or credit cards. 



TRS 80 Is a trademark of Tandy Corporation 

UNIX is a trademark of Bell Laboratories 

NEWDOS/80 2.0 Is a trademark of Apparat, Inc. 
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The File Cabinet is MOVING! 

They said It would never happen, but the Postal Service has decided to close down 
my Post Office so they can build a larger one. This means that 1 have to MOVE! 

Please make note of THE FILE CABINET'S new address so you can keep on enjoying 
the advantages of DOWNLOADING THROUGH THE MAIL without delays! 

Over the years, THE FILE CABINET has collected TRS-80 software from all over the 
country and has compiled them into the largest collection you will find ANYWHERE! 

Each disk is filled to near capacity with Transmiflsion Error Free software that 
saves you the hassle of long download times and HUGE PHONE BILLS! 

A two disk catalog of TRS-80 MODEL A software is available for only $5.00 which 
is refundable with your first order. The HIGH RESOLUTION/READMAC catalog is only 
$A.OO which is also refundable. 

ANNOUNCING THE FILE CABINET'S ORCHESTRA-90 MUSIC FILE CATALOG 

Hundreds of music files are now available for use with your 0rchc8tra-90! 
The catalog is available for $2.00 which is refundable with your first order. 

MODEL 1/3 CATALOG WILL BE RELEASED SOON! WATCH FOR THE ANNOUNCEMENT 
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Send your catalog requests to: 

NEW ADDRESS: 



THE FILE CABINET 

P.O. Box 322 

Van Nuys. Ca. 91 409 




The Re Cabinei 



t 



DOWNLOAD THROUGH THE HAIL! 

rS^ J^^ .^fti 
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Graphics Solutions 

High-Resolution Softuuore oncl Hordujore 



GBASIC 3.0 - Radio Shack Model 
4/4D/4P/UI hires board owners take note 
of an enhanced graphics Basic: GBASIC 3.0 
It not only provides an equivalent for each 
of the BASICG commands but adds a 
number of important new ones while using 
less memory. Without having to exit Basic, 
the hi-res screen can be saved to disk, 
k>aded from disk, or printed on any of 30 
popular printers: Epson, Star Micronics, 
Radio Shack, Okidata, C. Itoh, NEC, etc. 
The software works with TRSDOS 1.3, 
6.1.2, 6.2, 6.3; Dosplus 3.4, 3.5. 4; 
LDOS; and NEWDOS80. The disk con- 
tains 40 graphics programs/files. Also in- 
cluded is a detailed manual with assembly 
language entry addresses. $39.95. (Specif 
Model 4 or III mode or add $10 for both.) 
The following eleven programs run on 
a Model 4/4D/4P/1II equipped with a Radio 
Shack graphics board and GBASIC 3.0 or 
a Micro-Labs Grafyx Solution board: 

DRAW - A powerful full screen graphics 
drawing and editing program. $34.95. 

BIZGKAPH - Create business graphs from 
hand-entered or VisiCalc data. $59.95. 



xT.CAD - Professional drafting aid which 
outputs to a printer or plotter. $145.00. 

SURFACE PLOT - Plot three-dimensional 
equations of the form Z=F(x,y). $39.95. 

SD-PLOT - View three-dimensional data 
from any perspective or angle. $29.95. 

MATHPLOT - Plot equations of the form 
Y=F(x) with auto scaling. $29.95. 

CHESS - A very powerful program with 
10 skill levels, 40 play options. $39.95. 

REVERSI - Play Othello with 10 skill 
levels, 20 execution options. $29.95. 

SD Tic-Tac>To« - Play the computer or 
a friend on a 4x4x4 matrix. $19.95. 

SLIDESHOW - Create a sequence of 
hi-resolution picture displays. $19.95. 

BiorkytluB/USA - Plot your biorhythm or 
learn the states and capitols. $14 95. 

JOY-MOUSE - Allows a Radio Shack 
Color Computer joystick, mouse, or touch 
pad to be connected to any Model 
4/4D/4P/III. Hardware provides X, Y 
position values from to 255. $119 95. 




GRAFYX SOLUTION A plugin. 
cliF>-on board enhances any Model 4/4D 
4P/III to provide 640 x 240 dot graphics. 
(512 x 192 on a Model III) The board 
comes with a 56 page manual and a disk 
containing both model 3 and 4 mode 
versions of over 40 programs and files 
including GBASIC 3.0 which adds over 20 
graphics commands to Basic. $129.95. 

Please specify your exact system 
configuration when ordering or requesting 
information. Payment may be by check, 
Visa, Mastercard, or COD. Domestic 
shipping is free on pre-paid orders. Texas 
residents add 7% sales tax. 



Micro-Labs. Inc. 

902 Pinecrest, Richardson, 



214-235-0915 
Texas 75080 



SOFTWARE 



TRSDOS1.4. 
PATCHER 

TTia definitive anhancainent to TRSDOS 1.3. 

• allows access to double tided drh/es 

• allows access to 8 drtves (0 7) 

• DIB command no longer requires the colon 

• DIR command pauses between video pages 

• Directory now uses full date stamping on new 
files 

• DOS commands may be In upper, lower or 
mixed case 

• DOS commands repeat by pressing < ENTER > 

• DOS commands starting wttli a period are tg 
nored 

• DOS errors are expressed In full error messages 

• U5T command defauns to ASCII 

• All known HrT/GATA>ISK !/0 errors have been 
corrected 

• and much, much more 

ONLY $29.95 

DBSIDE 

SUITE 209 1051 KLO ROAD 

KELOWNA, BRITISH COLUMBIA 

CANADA V1Y4X6 

(604) 762 0593 



PUBLICATIONS 



SUPPORT 
for your TRS-80 

THE ONLY MONTHLY PUBLICATION 
THAT SUPPORTS YOUR 
MODEL I, UI, IV, 4P 6l 4D 

CONCENTRATION IS ON THE USER 

APPLICATION OF PROGRAMS, SOURCES 

OF PRODUCTS. PRODUCT REVIEWS, FEED 

BACK LOOP AND NEWS ITEMS FOR THE 

TRS-80 USER 

$ 18.00 FOR FIRST YEAR INTRODUCTORY 

OFFER MAILED IN THE US 

$ 29.50 CANADA AND MEXICO; $ 30.00 

OUTSIDE THE US, CANADA AND MEXICO 

Sample Issue $2.00 US And Canada 

307-265-6483 

p. O Box 660 
Casper Wvohing 82602-0680 



TRS-80 Software from Hypersoft. 



Read CP/M CoCo & PC disks on your TRS80 

Use IIVPERCROSS to COPY fjles btlwcen TRS-80 disks and those 
from many CP/M and IBM -PC type computers on your TRS-80 I, 1 1 1, 
*/4P or Max-80. You can FOR MAT alien disks, read their directories, 
copy files to and from them, copy directly from one alien disk to another. 
Converts tokenized TRSBD BASJ C lo MSDOS or CP/M at it copies. 
Formats supported: IBM-PC and MS-DOS including DOS 1.1,2.0-3.2 
Tandy 2000, single and double sided, 3.5 and 5 inch. CP/M from 
Aardvark to Zorba. CoCo format on XT+ version. 
Hyper Cross 3.0 PC reads popular MSDOS 1.1-3.2 formals Order 

SX3PCM1, SX3PCM3 or SX3PCM4 $4».9S 

HyperCross XT/3-0 reads 90 different CP/M and PC formati Ordar 

SX3XTMI, SX3XTM3 or SX3XTM4 $89.95 

HyperCross XT/3.0-Plus. Reads over 220 formats inc CoCo Order 

SX3XTMU, SX3XT1V13+ orSX3XTM4* $129.95 

Specify TRS-80 Model Kneeds doubSer), 111. 4/4Por MAX -SO. Dual 
model versions e.g. Mod 3/4 on one disk edd $10 extra. 

Amazing IIYPERZAP 3.2G Disk Magicl 

Do you want to backup, fix or modify a disk - ii so then you netd 
HVPCRZAP!. More than just another disk copying program- it it lh« 
program for analyzing, copying, repairing, creating floppy disks of all 
kinds. It works with TRS-80 formats as well as many others auch as 
CP/M. PC. CoCo etc.Designed to handle mixed density sectors on any 
track m any sequence. Many features lor reading, writing, editing track 
and sector data. Make your own self booting disks. Autopilot mode 
learns, saves and repeats procedures. Disk comes with fascinating 
examples. Use Hyperzap as a learning tool, find how things are donel. 
IIYPERZAP 3.2G - nothing else even comes close! Order # II232 - one 
version runs on all Model I/Ill/4/4Ps $49,95 

Other TRS-80 Programs 

FORTH: Mod 1/3 $49,95. Enhanced Model 4 version: -.........$59.95 

LAZVWRITER Word Processor for Model l, 3 or 4 $109.95 

MulilDOS 2.1 19S8 and beyond I Model 1 or 3 $79.00 

MiiUlDOS 2.1 64/80 version for Model 4 $89.00 

^f>'sterIous Adventures - Set of 10 for M 1, 3 or 4(3) complete $49.95 

NUTRITION Analyze your diet, with daiabase. Model 4 only $49.00 

TASMON debug trace disassemble TASM 1 TASM3 or TASM4 $49,95 
TMDD Memory Disk Drive for NcwDOS 80/ Model 4 users ...... $39.95 

XAS6SK 68000 Cross Assembler, specify Mod 1. 3 or 4 ..$49.95 

ZEUS Ediror/Assembler specLly Model J, 3 or 4 „„,„ $74.00 

ZIPLOAD last load ROM image, DOS& RAM DISK on your 4P $29,95 

Run Model 4 Software on a PC with PC-Four ! 



Now you can run your favorite TRS-SO Model 4 programs on a PC !. 
PC-Four is a program that makes your PC or Compatible behave like a 
128K TRS-80 Model 4 complete with operating system, Z80 
microprocessor thai can run many true Model 4 programs such at 
ALDS, ALLWRITE, BASCOM, BASIC, C, COBOL, EDAS, 
ELECTRIC WEBSTER, FED, FORTRAN, HARTForlh, UUk Brolher. 
MULTl- BASIC, IWZAL, PFS FILE, PASCAL, Payroll, PowtrMaU, 
PROFILE, SUPERSCRIPSIT. TASMON, VISICALC, ZEUS and more, 

f 

i 

Runs on PCs, PS/2s, compD(lbl«s and laptops wflh at least 384K ol 
memory. ONLY emulates Model 4 mode of Model 4. To use it you must 
transfer your old files to MSDOS disks using PCXZ or Hypercroaa. 

Prices: Order ffPCA $79.95 alone, #PC4H $104.95 with Hypercroaa 
SX3PCM4, ffPC4Z $119.95 wMh PCXZ, Available on 3.5" disk format. 

PCXZ reads TRS80 disks on a PC 

PC Cross-Zap (PCXZ) is a utility that lets you copy files lo or from 
TRS-80 disks on a PC or AT. Transfers BASIC. ASCII and Binary 
files. Converts BASl C and text files aulomattcally. You can also format a 
disk, copy disks, explore, read and write sector data, repair bad 
directories and much more. Suppor(s:all double density Model !■ Ill 
and 4 formats. Requires: PC« XT, AT or compatible. You tnusi hava af 
toast one 5' 1/4" regular or hlfh density drive and 2S6K memory. Not 
for PS /2s: Order /f PCXZ $79,95 



Hypersoft 

POD 51155. Raleigh. NC 27609 

Orders: 919 847-4779 8am-6pm, Support 919 846- 1637 6pm-llpraEST 
MasterCard, VISA. COD, Checks, POs. Add $3 Shipping, $5 2nd day" 
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CLOSE#6 



Wh©w! This was another tough one. Same reason 
a$ last issue. Too much material. Though ttiis Is the 
largest issue we have produced to date. In order to 
achieve a good blend, R was again necessary to 
shuffle artlcies to upcoming Issues. The cross 
referencing utility for Vlslcaic, which was promised 
for this Issue, WIU. appear In January. Also upcom 
mg wifl be a nice NX 10 printer utltRy by Danny Mul 
ien, more articles by Fred Blechman, as well as John 
Fowler's fine bit of 'hackers' Information about trans 
ferring infocom adventure games from IBM to fully 
WORK on the Model HI and 4. 

The January Issue begins our second year and, 
though right now rt seems far away, we better start 
preparing for the assembly language tutortai. 

I promised to make H as easy as possible for 
someone who Is fairly comfortable using Basic. That 
promise stands. IHowever, to make things reasonably 
managable for myself, I will confine the tutorial to 
Model m, TBSDOS 1.3. and Radio Shack's disk ver 
slon of EDTASM. 

This will obviously simplify the task greatly. All 
Model 4 owners have a built In Model 1)1, everyone 
shoutd have a copy of TRSDOS 1.3., and the 
simplest editor/assembler to work wtth Is EDTASM. 
Trying to cover Model I, Hi & 4, all the various ver 
slons of applicable DOSes, as welt as the many as 
sembter packages acvaliable, would result In long, 
drawn out mess that wouldn't teach you anything. 
Therefore: Model III, TRSDOS 1.3. and EDTASM. 

If you doni have either TRSDOS 1.3. or EDTASM, 
get tti^m. As the tutorial moves on, we will try to 
cover the Model 4 concept of Supervisor Calls 
(SVC). 

The January issue will also see a regular column 
devoted to our Model i friends. It will be written by 
Ben Mesander, a talented and devoted TRS 80 user. 

Model III and 4 will get regular coverage, and we 
do have some surprises coming up. Tim, Roy and 
Eric will be back with their usual high standard of 
bringing us Information. 

So. if you have not yet subscribed to the six 1989 
Issues, doni waste any more time, do so now. 



Meanwhile, for making issue #6 possible, 
TBSTImes extends sincere thanks 

* to Erie Bagal, president of the Valley Hackers 
Group, for The Real Hackers and xT.CAD: Com 
puter Aided Drafting for the TRS 80. 

* to George Madison, resident SAGATUG HI Rez 
genius, for TRSTEXT2. 

* to Robert Ooerr for sharing his nne article: WIN 
DOWS IN BASIC. 

* to Roy Beck, member of every computer club In 
Greater Los Angeles (according to Barbara), for 
another great tutorial on CP/M. 



• to Tim Sewell. the Guru of GEnle. for LABEL204 
and The PO Express. 

• to Donald Shelton for taking a concept and 
bringing It further to gh/e us Hidden Memory Fun. 

• to Jim King, the electricity expert of the Hackers* 
Group, for PtOTZ, (make that PLOT 2). 

In closing, we would like to thank YOU, the 
readers. Without you, none of the first six Issues 
would have been FK»sslble. You encouraged and sup 
ported our effort; you forgave us when we made mis 
takes; you shared your knowledge and programs. 
You have been great 

Thank you all for a vronderful flret yaar. 

Lanca W. 



BULLETIN BOARDS 



• Itlliiols 
* Chicago 

CHICAHO SYSUNK NETWORK 
(312) 622 4442 

300/1200 baud (24 hours) 
Sysop: George Matyaszek 
Supports: TRS 80 and others. 



^^^^^^^^^^^^^^ 



Kentucky 
Lexington 

THE LEX80 BBS 
(606) 268 0760 

300/1200 baud 

Weekdays: 6:00 pm. to 8:00 am 
Weekends: 24 hours 
Sysop: Donald Shelton 
Supports: TRS 80 



EOT 



BBS CORRECTIONS 



In the September 1988 Issue, page 29, we gave 
an Incorrect phone number for the KINGS MARKET 
BBS In Denver, CO. The correct phone number is: 

(303) 665 6091 

Sorry about that 

Also, same Issue, same page, the T.B.B.S 
(R)emote is no longer on line. 
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